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Jackpot 


Ecco il classico gioco della slot machine, le mac¬ 
chinette mangiasoldi che si vedono ovunque nei 
casinò di tutto il mondo. 

Potrete puntare da I a 9 monetine e, a se¬ 
conda della combinazione che apparirà sulla 
macchina mangiasoldi, perderete tutto oppu¬ 
re potrete diventare milionari. Si parte con una 
dotazione di 60 monetine e sì gioca premendo 
uno dei tasti numerici: I vuol dire che puntate 
una moneta, 2 vuol dire che puntate due mo¬ 
nete e così via. Le combinazioni vincenti sono 


tutte quelle che si ripetono a parure da sim 
stra. Se viene visualizzato il simbolo ' + ' si vin¬ 
ce anche singolarmente. Se si hanno tre sim¬ 
boli '+' si vince il jackpot che è il premio mas¬ 
simo. Le combinazioni vincenti e le relative quo¬ 
te sono seguenti: 

2 volte la posta 
= = = 4 volte la posta 
+ 3 volte la posta 
+ + 5 volte la posta 
+ + + si vince il jackpot. 


10 REM JACKPOT 

20 TEXT i GR ! HOME 

30 POR I = 1 TO PEEK (78):R = RND 
(1): NEXT 

40 FOR X =» 5 TO 35 STEP 5: FOR Y 
= 5 TO 35 STEP S:R - INT ( 

7 * RND <1) ♦ 1)s ÙN R GGSUB 
400,410,420,430,440,450,460i 
NEXT i NEXT 

50 FOR I = 1 TO 10: GÙSUB 520: NEXT 

60 FOR U — I TO 2500: NEXT 

70 TEXT : HOME : VTAB 5: PRINT " 

SI PUÒ' GIOCARE DA 1 A 9 MON 
ETE -i OTh8 7t PRINT " 'E 
SC' PER CHIUDERE IL GIOCO." 

75 VTAB 10: PRINT : PRINT " = = 

VI DA' 2 COLI E LA POSTA 
“ : PRINT : PRINT “ = = 

VI DA' <1 VOLTE LA POSTA" : VTAB 
1 7 

80 PRINT " + VI DA' 3 VOL 

TE LA POSTA": PRINT : PRINT 
" ♦ ♦ VI DA' 5 VOLTE LA 

POSTA": PRINT : PRINT " ♦ 

♦ ♦ VI DA' ■; : FLASH : PRINT 
" IL JACKPOT";: 6ET R*; NORMAL 
: GR : HOME 

70 KK - 51KP = 50 : K J - 70 

100 JK = INT <KJ * RND <1> ♦ KJ 
> : JU = INT (KP * RND (1) + 

KP)xJJ = JO:PX * 0 

110 GR 

120 GOSUB 530: HOME : INVERSE : PRINT 
SPC< 120): NORMhL 

130 VTAB 21: HIAB 16: PRINT "JAC 
KPOT=";JK;: VÌAB 24: HTAB 1: 

PRINT “AVETE " ; JJ;“ PEZ 

ZI" ; 

140 CÙLOK~ 15: HLIN b, 32 AT 6: HLIN 
8,32 AT 14: VLIN 6,14 AI B: VLIN 
6,14 AT 16: VLIN 6,14 AT 24i 


VlIN 6,14 AT 32: HL IN 6,34 AT 
15: HLIN 6,34 AT 39: VLIN 15 
,39 AT 6: VLIN 15,39 AT 34 
150 Y = 10 :X = 12: GOSUB 400:X = 

20: GÙSUB 410:X «* 28: GOSUB 
420 

160 GOSUB 480 
170 GOSUB 490 


* 

PEEK 

( 78 >: R 1 = 

INT 

(KK 

* 

RND 

<K> 

» 

1 >:R2 « 

INT 

(KK 

» 

RND 

<k> 

♦ 

1 ) : R3 = 

INT 

(KK 

* 

RND 

(R> 

+ 

1 ) 





190 X = 20 :Y = 10 

200 FOR I = 1 TO 7: COLOR= I: FOR 
rY * Y - 2 TO Y * 2: GOSUB 5 
50: NEXT : COLOR= 0: FOR YY = 

Y - 2 TO Y ♦ 2; GOSUB 550: NEXT 
: NEXT 

210 X = 12:Y = 10: 014 RI GOSUB 40 
0,4IO,420,430,440,450,460:X - 

20 

220 FOR I = 3 TO 12: CGLOR= I: FOR 
YY = Y - 2 TO Y ♦ 2: GUSUb 5 
60: NEXT : CGLDR= 0: FOR YY - 

Y - 2 TO T ♦ 2: GOSUB 5óù: NEXT 
: NEXT 

230 X = 20»Y * 10; ON R2 GOSUB 40 
0,410,420,430,440,450,460 
240 FOR I = 8 TO 15: COLOR= I: FOR 
YY = Y - 2 TU Y ♦ 2: GOSUB 5 
70: NEXT : COLOR= 0: FOR YY * 

Y - 2 TO Y ♦ 2l GÙSUB 570: NEXT 
: NEXT 

250 X =* 28 :Y » 10: ON RJ GOSUB 40 
0,410,420,430,440,450,460 
260 IF RI = 2 THEN GOSUB 600 : GOTO 
280 

270 IF RI = R2 THEN GOSUB 580: GOTO 
280 

280 VTAB 22: HTAB 13: FLASH i PRINT 
“ GIOCA ANCORA "|i GET R* : NOR 
MAL : 1F R* = CHR* (27) GOTO 330 
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290 I F R% < *1" OR R* > “9* GOTO 
2B0 

300 PX • UAL » JJ - PX: IF 

JJ < 0 THEN PX - PX ♦ JJiJJ = 

0 

310 HOME i INVERSE : PRINT SPC< 

120): NORMAL : VTAB 21: HTAB 
16: PRINT “JACKPOT*";JK;i VTAB 
21» HTAB l: PRINT "AVETE 
“> JJ i “ PE2ZI * ; 

320 IF PX > 0 GOTO 160 

330 TEXT : HOME i PRINT : PRINT 

“ FINITO IF JJ * 00 THEN 

PRINT : PRINT i PRINT : PRINT 
: PRINT "NON VI RESTA NULLA 
!•!!!'": END 

310 PRINT : PRINT : PRINT : PRINT 
: PRINT "VI REÓTANU ";JJ; 

" PEZZI"; 

350 JJ = JJ - JO: PRINT : PRINT : 

PRINT : IF JJ > 0 THEN PRINT 
" AVETE VINTO * ; JJ;" 

PEZZI" ; : GOTO 380 

360 JJ « - JJi IF JJ > 0 THEN PRINT 

" AVETE PERSO “ ; JJ;" 

PEZZI“ ; : GOTO 380 
370 PRINT " NON AVETE PERSO 

NE VINTO " : GOTO 390 

380 REM 

390 PRINT : PRINT i END 

400 COLOR* 5: POR I = X - 2 TO X 

♦ 2» VLIN Y - 2,Y ♦ 2 AT I » 

NEXT s COLOR* 0: PLOT X,Y - 

I: HLIN X — 1,X ♦ 1 AT Y: HL1N 
X - I,X + I AT Y ♦ Ii RETURN 

410 COLOR* 15: FOR I * X - 2 TO 
X + 2: VLIN Y - 2,Y ♦ 2 AT I 
i NEXT : COLOR* 2: HLIN X - 
1,X + 1 AT Y: VLIN Y - 1,Y ♦ 

1 AT X: RETURN 

420 COLOR* 11 : FOR 1 = X - 2 TO 
X ♦ 2: VLIN Y - 2,Y t 2 AT I 
: NEXT : COLOR* 4: HLIN X - 

1, X ♦ 1 AT Y - 1 : HLIN X - l 
,X ♦ l AT Y + I : VLIN Y - 1 , 

Y ♦ 1 AT X * l! VLIN Y - 1,Y 

♦ 1 AT X + 1 : RETURN 

4o0 COLOR* 15: FOR I = X - 2 TO 
X ♦ 2: VLIN Y - 2,Y + 2 AT I 
: NEXT : COLOR* Si VLIN Y - 

2, Y + 2 AT X + 1 : VLIN Y - 2 

,Y + 2 AT X - li PLOT X,Y: RETURN 
440 COLOR* 10: FOR I * X - 2 TO 
X ♦ 2: VLIN Y - 2,Y » 2 AT I 

: NEXT : COLOR* 1 : FOR 1 - X 
- 1 TO X ♦ 1 : VLIN Y - 1 ,Y ♦ 

1 AT I : NEXT : RETURN 
450 COLOR* 6: POR I = X - 2 TO X 

♦ 2: VLIN Y - 2,Y ♦ 2 AT I : 

NEXT : COLOR* 15: HLIN X - 

2,X + 2 AT Y ♦ 1: PLOT X - 1 
,Y: PLOT X * 1,Y: RETURN 
460 COLOR* 14: FOR I = X - 2 TO 
X + 2» VLIN Y - 2,Y ♦ 2 AT 1 
: NEXT : COLOR* 8: PLOT X,Y: 

PLOT X - l,Y - li PLOT X - 


1,Y ♦ 1: PLOT X ♦ 1,Y - li PLOT 
X ♦ 1 ,Y ♦ 1 : RETURN 
470 COLOR* Di FOR I = X - 2 TO X 
♦ 2 : VLIN Y - 2,Y + 2 AT I : 
NEXT : RETURN 

480 Y * 3: COLOR* 15: HLIN 35,39 AT 
20: VLIN 19,21 AT 39: VLIN Y 
,20 AT 37: COLOR» 5: FOR I = 

< - 2 TO Y ♦ 2: HLIN 36,38 AT 
I : NEXT : RETURN 


490 FOR Y = 3 TO 21: COLOR* OiPK 
* PEEK (49200)» HLIN 36,38 
AT Y - 2» COLOR* 5 :PK * PEEK 
(49200): HLIN 36,38 AT Y ♦ 3 
: NEXT 

500 COLOR* 0: FOR Y = 24 TO 21 STEP 
- I: HLIN 36,38 AT Y» NEXT 
: COLOR* 15: HLIN 36,38 AT 2 
0: COLOR* 5: FOR Y » 19 TO I 
5 STEP - li HLIN 36,38 AT Y 
: NEXT 


510 FOR Y * 15 TO 3 STEP - 2: COLOR* 
0: VLIN Y ♦ 3,Y + 4 AT 36: VLIN 

Y ♦ 3,Y * 4 AT 38 :PK * PEEK 
(49200)1 COLOR* 15: VLIN Y ♦ 

3,Y ♦ 4 AT 37: COLOR* 5: HLIN 
36,38 AT Y - 1 : HLIN 36,38 AT 

Y - 2: NEXT : RETURN 

520 COLOR* 0: FOR K = 22 TO 33i HLIN 
7,33 AT K: NEXT 


530 VTAB 12: HI AB 8: PRINT "#*** 

*****•****•***••*#«*«**“: HTAb 
8: PRINT 

j *;htab 8: print ** 
*;*;*;*!*»*;;**;*;*!*;**»*' 

540 HTAB 8l PRINT "**;*;;;«;•**; 

;**; ; ;*,*;**;*“ j HTAB 8l PRINT 


• • • * • a i • 4L • 

» > i * i * » * i i » > * I 


***! 


: HTAB 8: PRINT •***»***•»* 


: RETURN 


550 

Hi.IN X 

- 10 ,X - 6 AT 

YY 


560 

HLIN X 

** 2, X ♦ 2 AT 

YY 


570 

HLIN X 

t 6,X + 10 AT 

YY: 

RETURN 

580 

IF R2 * 

R3 THEN GX * 

4 « 

PX: 


GOTO 640 



590 

GX « 2 * 

PX: GOTO 640 



600 

1 F R2 < 

> 2 THEN GX 

- 3 

# P 


X: LOTO 

640 



610 

IF R3 < 

> 2 THEN GX 

- 5 

* P 


X: GOTO 

640 



620 

FOR 1 = 

1 TO 10: PRINT 1 

CHR* 


(7);: GOSU8 520: NEXT iGX » 

JK 

630 JK * 1 NT (80 * RND (1) ♦ 5ù 

) 

640 JJ * JJ ♦ GX: VTAB 24: HTAB 1 
: PRINT CHR* (7)“ GUADA 

GNATE ”;GX;‘ PEZZI FOR 

I = 1 TO GX: Fuk K = 1 TO 80 
: NEXT :PK = PEEK (49200) - 
PEEK (49200) ♦ PEEK (49200 
) - PEEK (49200): NEXT 1 RETURN 


65535 REM JACQUES DUMA 22/10/80 
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Dadi 


Ecco il classico gioco dei dadi che viene gioca¬ 
to nei casinò di Las Vegas. Le regole sono mol¬ 
to semplici: si gioca in due giocatori e vince chi 
per primo raggiunge o supera i 200 punti. I 
punti ottenuti sono quelli che si hanno dalla 
somma del valore dei due dadi. Per tentare la 
fortuna e tirare i dadi si preme la lettera 'FC 


mentre per passare il turno all'avversario si pre¬ 
me la lettera 'Q'. Si può continuare a giocare 
quanto si vuole ma attenzione... se si ottiene 
lo stesso punteggio coi due dadi si perdono tutti 
i punti totalizzati nel turno di gioco e la mano 
passa all'avversario, buona fortuna! 


100 

GOSUB 32ÙU0: 

POKE - 1 ó2>'8,0 

1 1 0 

TEXT : HOME 

: INVERSE : HTAb 


17: PRINT ": 

DADI HTaB 1 


5: PRINT “: 

__ . M 

■ 

1 20 

PRINT ": R 

= TIRA I DADI. 


; UH 

A LOPPIA ANNULLm 1 PUNTI FmT 
TI ' * ; 

1 30 NÙRMhL : PIVI NT " : : : i : j : : t : : s 

; ; : ; ; : : : ; ; t : : : : : i : : : : ; : 

“; : INVERSE 

140 PRIMI u = TIENE I PUNTI 

FATI I .V1NCE=20Q* . : " j 
15U PRIMI : NORMAL : POKE 34,7 
160 PRIMI’ : PRINT : PRINT “2 GIÙ 
LATORI . D*->1 IL NUME E 'RETU 

KN' . -“ j PRINT : 

GOTO 180 

17-0 PRINT "MA USI PIO b LLTTERE PER 

NONE, PREGO. *: PRIN1 : RETURN 

1UU INPUT “NOME DEL GIOCATORE 1- 
>“ IA* 

IMI IF h* - *" 1HEN 180 

1«2 IF LEN <A*> < 9 THEN UlJSUO 

1 05 1 l»ÙTO lyo 
1R3 GOSUB 1 7u : GOTO 180 

185 FOk I = 1 TO 12 

186 POKE u, 1NT < KND (1> * 200) 

« 5 

187 PÙKE 1,4 

Itìtì CàLL 771j POR X = 1 TO 25; NEAT 

189 NEXT I: RETURN 

190 INPUT "NOME DEL GIOCATORE 2- 
> " ; B* 

191 IF B* » "" TUEN 190 

192 IF LEN <B*> < V THEN GGSUb 
185; GOTO 2ÙU 

193 GOSUB 170: GOTO 190 

20u GOSUB 250U: PÙKE - 18304,0: 
GGSUL 30/1 1 s 1 LXl 

210 X = INT ( RNU «.1) * 2>:UP* = 

A*: Il X - 1 THEN UP* = b* 

211 GOSUB 2ou0 

220 TURN = - 1: PRINT CHR» <7> 

230 REM 


240 GOSUB 90o:1URN = TURN ♦ 1 
250 VImB 23: HT**B J: 1 LASH : PRINT 
UP*;; NUHMaL : PRINT ■ GIOCH 
I <R> 0 NO im ?" ; : HI Afa UH 
<32 - TURN / IO): IF TURN > 

0 THEN PRIMI “BONUS 5 »" ; TUR I 
260 PÙKE - 16368,0 

270 K = PEEK v - 16384 > : 11 K I 

> ASC ("Gl") ♦ 128 AND K < 

> Abu <“K“> 128 THEN 270 

271 POKE - 1638lJ, 0 : VTaB 23: HTAÓ 
1; CALI. - Ó6Ó: IF K = ASC 

<"0"> ♦ 128 THEN 500 

272 GOSUB lOUù 

280 IF XI s > X2 THEN 240 

285 COLOR- 6: HLIN 16,23 AT I: FLASH 

: VTAB 1: HTAB 19: PRINT “AH 
I•“: INVERSE 

2V0 VTaB 21: HTAtì 3: PRINT “ 

VTaB 21: HThB 3: PRINT 
* COPPIA 1 ' " ;UP*; * PERDI *jU 
PPT 3 ; " PUNTI ' ! *' 

300 FOR X ■= 1 TO 99 ; BU2Z = PEEK 
( - 1o 336 > : NEXT X 
310 GOSUB 2500; bObUÓ 2500 : GOSUB 
25U0 

320 UPPTS » 0: VTaB 1: HTAB 17: 1NVER 
SE ; PRINT DADI NORMAL : GOTO 

516 

500 INVERSE 

5UI VTAB 21: HThB 3: PRINT " 

“ ; ;X ^ - 1 

502 a = X ♦ 1:XY - 250 - 3 * X: IF 
XY < I THEN XY » INT < RND 
<1) • 20u > ♦ 5 
504 PGi\E u.XT 
5u 5 POKE 1 ,3 
5U 6 CALL 771 

510 VTAB 21 : HT-,b 7: PRINT a;“ P 

UNTI PER “ j UP* FOR I * 

1 10 9: NEXT 1 : IF X < UPPTS 

THEN 502 

511 PRI Ni 

516 GOSUB 2500 
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51? NORNAL : IF UP * = A* THEN ©U 
0 

518 BPTS » BPTS • UPPTS:UPPTS “ 0 

: 1F bPT 3 > 19y THEN 70ù 

519 GOSUB 2©U0 

520 UP» = r,*: GOIO 220 

óuO APTS - APIS ♦ UPPT© :UPPTS = 0 
: 1F hPTo > 199 THEN 700 
©ul GOSUB 2600 
©10 UP* * B*: GOTO 220 
©99 Rtli 

700 GOSUB 900: FLa.H : VTAB 23: CALL 

- 868: VTAB 23: HTaB 7: PRINT 

* • ;up» ; * batte *• 5 

701 1F UP* = a* THEN PRINT B*; 

7u2 IF UP* = B* THEN PRINT A*; 

703 PRINT “! " : NOKMAL 

710 PGKE - 10304,0 1 FOR QLi « 1 TU 
5: PRINT CHR* <7>;: NEXT uW 

711 GUSUb 30711: GQSUb 30711 
71© GGSUtì 25oÙ 

717 OTmB © : UALL - b©8 : VTnb ©; 

PRINT " (III TASTO» RIPET 
E. fJC “ F I NE .)*■;: FLASH : Hi AB 
o; PRINT “UN “ì: HiAb 10: PRINT 
■ IASTO" ; : Hl'Ab 25; PRINT *tS 



C“ 


720 

NURMaL :K » PcEK < - 
; IF K ' 141 T l lEN 720 

1©384) 

722 

POKE - 1 *-‘©8 , U ;mPT b 

= 0 :BPT 


S = U:UPPTS = u: GOSUB 2600: 


IF K < >155 THLN 

RUM 

7 30 

GOTO ©3900 


VÙO 

REM 


VOI 

70 2 

VTAB 21: CaLL - 863: 
Ù 

VTAB 2 

PK IN i “ -- 



2u ©0 NOkMrtt : XI :XF = 0: ON X 

GOSUB 2051,2052,2u53,2054,2 
055,2056 

2040 X = X2:XF = 15: QN X GOSUB 2 
051.2052,205©,2u54,2055,205© 

: RETURN 

2u51 GOSUB 2101: RETURN 

2052 GOSUB 2104: GOSUB 2105: RETURN 


2053 GUSUb 2102: GOSUB 2107: GOSUB 
2101: RETURN 

2054 GUSUb 2102; GuSUB 2107: GGSUB 
21U5: GOSUB 21u4: RETURN 

2055 GOSUU 2104: GUSUB 2107: GOSUb 
2105: GUSUB 2102: GOSUB 2101 

: RETURN 


205© uOSUB 2102: GOSUB 2107: GOSUb 
2105: GUSUB 2104: GOSUB 2103 
: GOSUB 2104: RETURN 

2101 H « 12 + XF;Y = 13: GOTO 215 
0 

2102 H = 3 + XF:Y = 10: GOTO 2150 

2103 H » 8 ♦ XF:Y = 13: GOTO 2150 


2104 H 


3 • X» :Y - lo: GOTO 2150 


2105 H - 16 + XF ti = 10: GOTO 215 
U 

21U6 H *- 16 ♦ XF:T = 13: GuTÙ 215 
O 

2107 H = 16 ♦ XF:T = 16: GOTO 215 
0 

2150 GOSUB 2200: FOR I = 1 TO 8: 

S - PEEk t - 1633©): NEXT 1 
; RETURN 

220 U VI Ab Y: HTAB H: PRINT “ 

: HTAB H: PRINT * ■; RETURN 


>»j3 PRINT * PUNTI: ‘ ! 

°05 IF UP* - 8* THEN 912 
y10 PkIN t A*;" INVERSE : PRINT 

“ *;APTS ♦ UPPTS;“ NORNAL 

: PRINF ‘-jBPTS: GOTO 
915 

912 PRINT n*j* “jAPTSj“, *iB*;* 

: INVERSE : PRINT “ “ ; BPTS 
♦ UPPISi" *• : NORNAL 
915 PRINT ” —- 


920 RETURN 
1OOÙ REM 

lulG XI « INI < RND (!) « 6 > * 1 
:X2 = INT < RND U) * 61 «- 

1 

10 2U IFM - X2 THLN 2000 
1030 UPPTb = UPPTS • XM X2 ♦ TU 
RN 

2000 FOR I = IO TU 9 STEP - 1 
2007- VTAB 1: HTAB 7: PRINT “ 

* : NEXT 
I 

2010 INVERSE : Fuk 1 = 9 Tù 1B 
2020 VTAB li HT Ab 7: PRINT “ 

HTaB 22: PRINT 

H • 

2025 NE*T 1 


2499 REM 

-50 u FOR I - 1 TO 222: liLXT 1: RETURN 

2oùU FOR X - 7 IO 19: VTAB X: CALL 
- 8©8: FOR I - 1 TO 20i NEXT 
1 ,X : RETURN 

2705 PLOT X POS - 1 ♦ CHR.t' POS 
: NEXT CHK; RhTUkN 


30 71 1 

FOR I = 

1 Tù 4 

; IF 1 - INT 

( 1 

/ 2) * 

2-0 

THEN PUKE - 

1 © 

• 3u4,0 



30 71 - 

PÙKE 0 , 

1 NT < 

RND <1) * 20 

0) 

♦ 5 



3071 3 

PUKE 1 , 

I NT < 

RND (1> * 99 

> 

♦ 50 



30 7 l 4 

CALL ??1 

: TEXT 

: NEXT 

30715 

RETURN 



32UUU 

PUKE 771 

,173: 

PUKE 772,48: 


PuKE 773,192; POKE 774,136: 

PURE 775,208» PUKE 77©,4 : POKE 
777,198: POKE 778,1: PUKE 77 
9.240 

32Ù02 POKE 780,8: PORE 781,202: PUKE 
Vi2, ©U8; POI'L 783,246: PÙKE 
784,16©: PGKE 785,Ut POKE 78 
0,7©: POHF. 787,3: POKE 788,3 
: POKE 789,V©: 0 “ - 16384: RETURN 







Duello 


In questo gioco verranno messi a dura prova 

i vostri riflessi e la vostra capacità di concen¬ 
trazione. I giocatori sono due e si sfidano ad 
un duello all'ultimo sangue. 

Il giocatore di sinistra userà il tasto "Z" men¬ 
tre il giocatore di destra userà il tasto '?’. L'Ap 
pie fa vedere una sene di simboli in rapida sue 
cessione al centro dello schermo e dovrete cer¬ 
care di osservarli con la massima attenzione: 
questi sono infatti i simboli che danno diritto 
a sparare. Ogni simbolo valido dò un punteg¬ 
gio diverso e dovrete cercare di ricordare an¬ 


che il punteggio abbinato a esso. Infatti i segni 

presentati all'inizio verranno ripetuti insieme a 
tanti altri segni che invece non sono utili per 
sparare. Il giocatore che per primo invece non 
sono utili per sparare. Il giocatore che per pri¬ 
mo riconosce uno dei simboli validi preme il suo 
tasto e. se ha indovinato , colpisce l'avversa 
rio. Attenzione però che se sbaglierete sarà l'av¬ 
versario a colpirvi e a guadagnare il prezioso 
punteggio. Vince il giocatore che per primo rag¬ 
giunge IO punti. 


60 G0SU6 32000 

95 LPTS = 0 :RPTS = OiPITCH = 0 


110 

GR : HOME : NORMAL : GOSUB 
000 

5 

1 1 2 

NORMAL : VTAB 21: HTAB 10: 
" HTAB 25: PRINT * 

■ ; : INVERSE 

PRINT 

115 

VTA8 21: HTAB 3: PRINT " Z 

K 


EY “; : HTAB 29: PRINT - ? 

Y " 

KE 

1 1 6 

IF TIME > 0 THEN 125 


120 

FOR I = 1 TO 999: NEXT I 


125 

GOSUB 5160: NORMAL 


140 

REM 



TROVA IL SIMBOLO 


155 VTAB 23: HTAB 1: PRINT SPC< 
13): HTAB 25: PRINT SPC< 2? 

): HTAB 25: PRINT SPC< 15) 

160 FOR I - 1 TO 5 

162 COL(I) * INT C RND <1> * 15) 

♦ 1 : IF COL<I> = 3 OR COL<I 
) = 5 OR CQL<I> = 7 OR COL<I 
) = 11 OR COL<I> = 14 THEN 1 
62 

165 NEXT 

170 VTAB 21: HTAB 15: PRINT * SP 
ARA * “: HTAB 15: PRINT “ *Q 
UESTO - 

135 FOR I = 0 TO 5:S(I) = Oi NEXT 
I 

200 FOR J * 1 TO INT < RND <1) * 
6) * 4:NBR = INT < RND <1) * 
5) + 1 : COLGR= COL(NBR): ON 
NBR GOSUB 1100,1200,1300,140 
0,1500 

202 POKE 0, INT < RND <1> * 99) ♦ 
9 

204 POKE 1,9 


206 CALL MU 

207 POKE 0, INT < RND <1) * 99) ♦ 
9 

208 POKE 1,4 

209 CALL MU 

210 NEXT J:S(NBR) * l:SYMBOL = N 
BR 

215 FOR 1 - 1 TO INT < RND <1) * 
500) + 300: NEXT I 
230 VTAB 21: HTAB 15: PRINT ■ 

HTAB 15: PRINT * 

M 

245 INVERSE 

260 VTAB 22: HTAB 16: PRINT “PRO 
NT 0 i " 

275 COLOR= 0: GOSUB 2010; FOR I - 
1 TO 777: NEXT I 
290 REM 

INIZIO 


305 NBR = INT < RND <1) « 5) + 1 

: COLOR= COL<NBR): ON NBR GOSUB 
1100,1200,1300,1400,1500: POKE 
Q + 16,0: VTAB 22: HTAB 16: PRINT 

* • i > , 

• ■ ■ 


320 FOR TIME = 25 TO INT < RND 
<1) * 20) STEP - 1 : HTAB 18 
: PRINT SPC< TIME < 10);TIM 
E / 10; 

355 J = PEEK (Q + 48) 

367 IF PEEK <Q) < > 175 AND PEEK 

< Gl) < >218 THEN NEXT : COLOR= 

0: FOR I = 15 TO 21 : VLIN 28 
,36 AT I ; NEXT : GOTO 305 
330 IF PEEK (Q) = 175 THEN 590 
382 GOTO 425 
395 REM 
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PRIMA A SINISTRA 


410 NORMAL : VTAB 21i HTAB 16: PRINT 
“ <NO! ! .) " 

415 S(NBR) = 1: FOR I = 1 TO 4: FOR 

J = 1 TO INT < RNO <1) * 99 
) * 99: NEXT J: COLOR» 0; VLIN 
16,17 AT 21 : FOR J = 1 TO 4i 
K = PEEK < Q ♦ 48): NEXT J 

416 FOR J = 1 TO 99: NEXT J: COLOR= 
11: VLIN 16,17 AT 21: NEXT 1 

418 COLOR» COL(SYMBOL): ON SYMBO 
L GOSUB 1100,1200,1300,1400, 

1500 

419 VTA8 21: HTAB 16: PRINT * <S 
I ) “; CHR* <7)jt INVERSE 

420 GOSUB 5160 

425 GOSUB 6000: IF S(NBR) < > 1 

THEN 575 
440 GOSUB 6110 

455 VTAB 23: HTAB 1: PRINT • VIN 
CE - ; : HTAB 91 PRINT TI 

ME / 10 

470 PRINT CHRS <7)j“ -PTI 

CHR* < 7)j:LPTS = LPTS ♦ 

TIME 

485 NORMAL 

500 VTAB 24: HTAB 27; PRINT “DAI 
FLASH : PRINT “RETURN"; 

: NORMAL : PRINT “.“; 

530 HNBR = 15 :HCOL » 1:HPTS » .5 + 
(LPTS / 10)iX - 4 :Y » 1: GOSUB 
3000 

545 GOTO 710 
560 REM 

PRIMA A DESTRA 


575 NORMAL : VTAB 21: HTAB 16: PRINT 
“(NO!!.>" 

580 S(NBR) = 1: FOR I = 1 TO 5: FOR 

J = 1 TO INT ( RND <1> * 99 
) t 99: NEXT J: COLOR» 0: VLIN 
15,16 AT 15: FOR J - 1 TO 4: 

K » PEEK <Q ♦ 48): NEXT J 

581 FOR J - 1 TO 99: NEXT Ji COLOR— 

12i VLIN 15,16 AT 15i NEXT I 

582 COLOR» COL(SYMBOL): ON SYMBO 
L GOSUB 1100,1200,1300,1400, 

1500 

583 VTAB 21; HTAB 16: PRINT " <S 
I ) “; CHR* (7): INVERSE 

585 GOSUB 5160 

590 GOSUB 7000: IF S<NBR> < > 1 

THEN 410 
605 GOSUB 7110 

620 VTAB 23: HTAB 26: PRINT “ VI 
NCE "; : HTAB 34: PRINT 

TIME / 10 

635 HTAB 26: PRINT CHR* <7>;“ - 

-PTI . “; CHR» < 7);:RPTS 

= RPTS + TIME 
650 NORMAL 

665 FOR I = 1 TO 500: NEXT II VTAB 


24: HTAB 1: PRINT “ DAI " ; : FLASH 
: PRINT “RETURN*; : NORMAL : PRINT 
“ • " 5 

695 W6R = 13:HCOL « 8:HPTS » .5 ♦ 

(RPTS / 10):X = 29lY = 1: GOSUB 
3000: NORMAL 
700 REM 

STAMPA IL PUNTEGGIO 


710 POKE Q + 16,0: INVERSE 
725 VTAB 24: HTAB 15: PRINT " 10 
=VINCE* ; : NORMAL 
745 VTAB 21 

755 HTAB 3: PRINT “TOT. » 

HTAB 9: PRINT LPTS / 10; 

760 HTAB 16: PRINT “ “| 

770 HTAB 26: PRINT “TOT. = “; 

: HTAB 32: PRINT RPTS / 10 
772 IF LPTS > 99 OR RPTS > 99 THEN 
4000 


785 K » PEEK (Q): IF K < > 141 AND 

K < >155 THEN 785 

787 POKE Q ♦ 16,0: 1FK-155 THEN 
95 

788 GOTO 112 
1000 REM 

SIMBOLI 


1100 GOSU8 2010: COLOR» 0: REM S 
PIRAL 

1110 HLIN 15,19 AT 31: HLIN 17,1 
9 AT 35: VL1N 32,34 AT 19 

1115 RETURN 

1200 GOSUB 2010: COLOR- 0: REM C 
ROSS 

1215 VLIN 28,30 AT 15: VLIN 28,3 

0 AT 16: VLIN 28,30 AT 20: VLIN 
28,30 AT 21: VLIN 36,38 AT 1 
5: VLIN 36,38 AT 16: VLIN 36 
,38 AT 20: VLIN 36,38 AT 21 


1220 RETURN 

1300 GOSUB 2010: COLOR» 0: REM E 

1310 HLIN 18,21 AT 31: HLIN 18,2 
1 AT 35 
1315 RETURN 

1400 GOSUB 2010: COLOR- 0: REM 0 

1415 COLOR- 0: FOR I - 17 TO 19: 

VLIN 31,35 AT li NEXT I 
1420 RETURN 

1500 GOSUB 2010: COLOR- 0: REM ! 

1505 VLIN 32,38 AT 15: VLIN 33,3 

8 AT 16: HLIN 17,19 AT 34: VLIN 
33,38 AT 20: VLIN 32,38 AT 2 
1 


1515 

2010 

3000 


RETURN 

FOR I = 15 TO 21: VLIN 28,3 
8 AT I : NEXT I : RETURN 
REM 
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PUNTI 

3010 

3015 

3020 

3022 

3100 

31 10 

3120 

3130 

3140 

3150 
31 òO 
3170 

3180 

3190 

3200 

4000 
FINE 

4001 

4010 

4012 

4015 

4016 

4017 
4020 
4025 

4030 

4035 

4037 

4038 


CAPPELLO 

COLOR* HNBRi FOR I » X TO X 

♦ 31 VLIN Y,Y + 4 AT II NEXT 
I 

COLOR= HCOLl IF HPTS - .5 > 

9.9 THEN 3200 
IF HPTS > 9 THEN HPTS =» 9 
ON INT (HPTS) + 1 GOTO 310 
0,3110,3120,3130,3140,3150,3 
160,3170,3180,3190 
VLIN Y ♦ 1,Y ♦ 3 AT X ♦ lt VLIN 
Y ♦ 1,Y ♦ 3 AT X ♦ 2: RETURN 

VLIN 1,5 AT Xj VLIN 2,4 AT 
X ♦ 1: VLIN 1,4 AT X ♦ 3: RETURN 

HLIN X,X ♦ 2 AT 2» HLIN X ♦ 

1,X + 3 AT 4: RETURN 
HLIN X,X ♦ 2 AT 2i HLIN X,X 

♦ 2 AT 4: RETURN 

HLIN X,X ♦ 2 AT 4i HLIN X,X 

♦ 2 AT 5i HLIN X ♦ 1 ,X ♦ 2 AT 
1: HLIN X ♦ 1 ,X ♦ 2 AT 2i RETURN 

HLIN X + l,X ♦ 3 AT 21 HLIN 
X,X ♦ 2 AT 4: RETURN 
HLIN X ♦ 1,X ♦ 3 AT 2i HLIN 
X ♦ 1 ,X ♦ 2 AT 4i RETURN 
VLIN 2,5 AT X: VLIN 2,5 AT 
X ♦ Il VLIN 2,5 AT X ♦ 2: RETURN 

HLIN X + 1,X ♦ 2 AT 2: HLIN 
X + 1,X ♦ 2 AT 4i RETURN 
HLIN X t 1,X ♦ 2 AT 2: HLIN 
X,X ♦ 2 AT 4i RETURN 
PLOT X,1 ; PLOT X + 2,1l PLOT 
X + 1,2: PLOT X ♦ 3,2: PLOT 
X,3: PLOT X ♦ 2,3: PLOT X ♦ 

1,4: PLOT X ♦ 3,4: PLOT X,5: 

PLOT X ♦ 2,5i RETURN 
REM 

GIOCO 


PITCH - 258: VTA8 22: CALL - 
958 

IF RPTS > 99 THEN 4015 
I « 1 : J = 25: GOTO 4016 
I = 25:J « 1 

INVERSE : VTAB 21: HTAB 15: 
PRINT ' 


NAME* « " 


■ lY - 

22:X - I : 

GOSUB 4050 


NAME* » “ 

VINCITORE 1 ! 

■ lY - 


23: GOSUB 4050 

NAME* * ■ =««——*» " :Y » 


24: 6QSU8 

4050 


NAME* * * 

PREMI RETURN 

- : NORMAL 

lY - 22 iX 

- J: GOSUB 4050 

NAME* = - 

PER GIOCARE 

- t Y * 

23: GOSUB 

4050 


NAME* » ' 

ESC » FINE. 

■ lY = 

24: GOSUB 

4050 


VTAB 22: 

HTAB X ♦ 7: 

FLASH 


: PRINT “RETURN': PRINT : HTAB 
X + 1: PRINT -ESC";: NORMAL 

4040 K = PEEK (Q): IF K < > 141 

AND K < >155 THEN 4040 

4042 POKE Q ♦ 16,0: IF K = 141 THEN 
95 

4045 HOME : PRINT i PRINT ■ BYE 
: END 

4050 VTAB Y: HTAB X: FOR NBR * I 
TO LEN (NAME*): PRINT MID* 

(NAME*,NBR,1>; 

4051 PITCH = PITCH - 6: IF PITCH < 

10 THEN 4060 

4052 POKE 0, INT < RND (1) * 200 
> ♦ 50 

4054 POKE 1,13 

4056 CALL MU 

4057 POKE 0,PITCH 

4058 POKE 1,20 

4059 CALL MU 

4060 NEXT NBR: RETURN 
5000 REM 

DUELLANTI 


5020 COLOR- 1 

5040 HLIN 1,10 AT 7: FOR I - 3 TO 
8: VLIN 0,6 AT 1 : NEXT I 

5060 FOR I - 2 TO 6: VLIN 14,21 AT 

I: NEXT li VLIN 16,20 AT 1: VL1N 
18,20 AT 7 

5060 COLOR- 8 

5100 FOR I « 0 TO 6: HLIN 28,34 AT 

1: NEXT I: HLIN 25,37 AT 7: HLIN 
28,36 AT 21: HLIN 28,36 AT 2 
2 

5120 FOR I - 31 TO 34: VLIN 31,3 

6 AT 1 : NEXT li HLIN 28,31 AT 
37: HLIN 33,34 AT 37: HLIN 2 
8,30 AT 36: HLIN 29,30 AT 35 

5140 HLIN 6,7 AT 21: PLOT 1,21i FOR 
I = 8 TO il: HLIN 2,5 AT I: NEXT 
I : PLOT 3,12 

5160 COLOR* 2 

5180 FOR I - 3 TO 5: VLIN 22,34 AT 

I: NEXT 1: «JLIN 22,26 AT 1: VLIN 
22,28 AT 2: VLIN 22,28 AT 6: 

VLIN 22,26 AT 7 

5200 HLIN 27,37 AT 15: HLIN 32,3 

7 AT 14: HLIN 33,37 AT 13:.VLIN 
16,17 AT 29: PLOT 37,16 

5220 FOR I = 30 TO 34: VLIN 23,3 
0 AT I : NEXT II VLIN 23,27 AT 
28: UL1N 23,29 AT 35: VLIN 2 
3,27 AT 36 

5240 COLOR* 5 

5260 HLIN 3,5 AT 35: HLIN 2,8 AT 
361 HLIN 2,3 AT 37: HLIN 5,8 
AT 37 

5280 COLOR* 7 

5300 VL1N 23,31 AT 6: HLIN 2,4 AT 
25: HLIN 4,5 AT 27: PLOT 4,2 
6 

5320 VLIN 23,30 AT 29: HLIN 31,3 

3 AT 25: HLIN 30,31 AT 27: PLOT 
31,26: PLOT 29,15 


IO 



5340 COLOR- 11 

5360 POR I - 8 TO 11 « HL1N 28,34 
AT li NEXT li HLIN 30.34 AT 
12 t HLIN 30,32 AT 13i HLIN 3 
0,31 AT 14 

5380 FOR I = 22 T0 24: HLIN 30,3 
3 AT I : NEXT li VLIN 25,2ó AT 
30 

5400 COLOR- 12 

5420 HLIN 5,7 AT 14: HLIN 3,7 AT 
13: VLIN 9,12 AT 4: VLIN 11, 

12 AT 5: VLIN 11,13 AT 5: VLIN 
8,12 AT 6: VLIN 9,12 AT 7: VLIN 
8,11 AT 8 

5440 VLIN 22,26 AT 5: FOR I - 22 
T0 24: HLIN 2,4 AT I: NEXT 

1 

5460 COLOR- 13 

5480 FOR I = 16 TO 20: HLIN 30,3 
6 AT 1 : NEXT II VLIN 17,20 AT 
28: VLIN 18,20 AT 29 

5500 HLIN 30,33 AT 21 

5520 COLOR- 0 

5540 PLOT 29,8l VLIN 15,17 AT 7 

5560 FOR I = 12 TO 21: HLIN 8,26 
AT I: NEXT I: VLIN 16,20 AT 
27 

5580 COLOR- 15 

5600 HLIN 0,13 AT 38: HLIN 0,13 AT 
39: HLIN 23,39 AT 38: HLIN 2 
3,39 AT 39 

5610 HLIN 14,16 AT 26: HLIN 20,2 
2 AT 26: PLOT 16,25: PLOT 20 
.25 

5620 VLIN 26,39 AT 13l VLIN 26,3 
9 AT 23 

5640 IF C < >0 THEN 5840 

5660 REM 

ISTRUZIONI 


5662 COLOR- 9-.NBR = INT ( RND < 
1) *5>t ON NBR G0SUB 1100,1 
200,1300,1400,1500 


5665 NAME* - *-"i G0SUB 

5675 

5666 NAME* = " u l GOSUB 

5675 

5667 NAME* = "-" » GOSUB 

5675 

5668 NAME* = * DUELLO!!! "I INVERSE 
; GOSUB 5675: NORMAL 

5669 NAME* - *-“ < GOSUB 

5675 


5674 FOR I * 1 TO 999: NEXT I: GOTO 
5699 

5675 VTAB 24i HTAB 13: FOR I = 1 
TO LEN <NAME*) : PITCH = PÌT 

CH * 1 : PRINT MID* <NAME*,I 
i I M 

5677 POKE 0,222 - 3 * PITCH 

5679 POKE 1 ,4 

5680 CALL MU 

5682 NEXT 1: IF PITCH < 54 THEN 
PRINT 


5664 RETURN 

5699 HOME i INVERSE : VTAB 21: HTAB 
3; PRINT "'Z'KEY ";i HTAB 29 

i PRINT *'?'KEY "j 

5700 NORMAL l HTAB 141 PRINT ■ < 

> 

5720 NORMAL : PRINT “# APPLE SCE 
GLIE UN SIMBOLO CHE SPARA. 


5740 PRINT "* PREMI LA TUA KEY Q 
UANDO ESSO RIAPPARE' 

5760 PRINT '* IL PIU' RAPIDO VIN 
CE SE E' CORRETTO. 

5730 FLASH i VTAB 21; HTAB 16: PRINT 
“RETURN": NORMAL 

5790 FOR I = 1 TO 20 

5792 POKE 0,202 - IO * I 

5794 POKE 1 ,3 

5796 CALL MU 

5798 NEXT 1: COLOR- 2i GOSUB 150 
0 

5800 K - PEEK (Q)i IF K ( > 141 

THEN 5800 

5802 POKE Q + 16,0iC » 1 

5820 HOME 

5840 INVERSE i FOR I = 21 TO 23i 
VTAB 1: HTAB 14i PRINT " 
i HTAB 24: PRINT " ';i NEXT 
I 

5860 VTAB 24: HTAB 14: PRINT ■ 

" i 

5900 RETURN 

6000 REM 

DI SEGNI A SINISTRA 


6010 COLOR- 1 

6015 FOR I = 15 TO 18: HLIN 7,11 
AT I : NEXT I 
6020 COLOR- 12 

6025 HLIN 12,15 AT 15i HLIN 12,1 

5 AT 16: HLIN 12,13 AT I7i HLIN 
12,13 AT 18 

6030 COLOR- 7 

6035 HLIN 12,19 AT 13i HLIN 13,1 

9 AT 14: HLIN 13,14 AT 19i HLIN 
14,16 AT 17: VLIN 15,16 AT 1 
6: PLOT 14,18: PLOT 18,12 

6040 COLOR- 0 

6045 VLIN 29,31 AT 6 

6050 COLOR- 2 

6055 FOR 1 = 22 TO 26: HLIN 2,6 AT 
I: NEXT I: HLIN 4,6 AT 27i PLOT 
6,28 

6060 COLOR- 8 
6065 HLIN 2,5 AT 21 
6070 FOR 1 - 1 TO 20 

6072 POKE 0,255 - 10 » I 

6074 POKE 1,3 

6076 CALL MU 

£>080 NEXT 1 

6100 RETURN 

6110 REM 





FUOCO A SINISTRA 


6120 COLOR= 9: FOR I » l TO 99i NEXT 
I 

6130 UL1N 13,14 AT 20i ULIN 12,1 

5 AT 21i ULIN 11,12 AT 22: ULIN 
15,16 AT 22 

6140 COLOR» 0: ULIN 15,16 AT 15 
6150 FOR I - 1 TO 50:J » PEEK < 

Q + 48) + PEEK (Q ♦ 48) ' PEEK 
(Q ♦ 48): NEXT I 
6155 GOTO 6170 

6160 COLOR» 0: VLIN 13,14 AT 20: 

VLIN 12,15 AT 21: VLIN 11,1 

6 AT 22 
6165 RETURN 

6170 HCOL = 20:U * 13:HPSN » 2:UP 
SN * 0 

6180 HCOL = HCOL ♦ HPSN.-U » U + U 
PSN: IF V > 37 THEN 6230 
6190 1F SCRN< HCOL + HPSN / 2,U 
+ VPSN / 2) = 0 THEN 6210 
6195 IF UPSN = 0 THEN GOSUB 616 
0 

6200 HPSN = HPSN * - 1:UPSN = 2 

6202 POKE 0, INT ( RND <1> * 99) 

♦ 5 

6204 POKE 1,4 
6206 CALL MU 

6210 COLOR= 15: PLOT HCOL ♦ HPSN 
♦ UPSN: COLOR» 0: PLOT HC 
OL,U 

6220 GOTO 6180 

6230 GOSUB 5160: COLOR» 0: PLOT 
HCOL.U: RETURN 
7000 REM 

DISEGNO A SINISTRA 


7010 COLOR» 13 

7015 FOR I = 16 TO 20: HLIN 26,2 
9 AT I : NEXT I 
7020 COLOR» 8 

7025 HLIN 28,36 AT 21: HLIN 28,3 

6 AT 22 

7030 COLOR» 11: FOR I » 16 TO 20 

: HLIN 23,25 AT I: NEXT I: HLIN 

21.22 AT 16; HLIN 21,22 AT 1 

7 

7035 COLOR» 7 

7040 HLIN 17,25 AT 14; HLIN 17,2 

4 AT 15: ULIN 16,17 AT 20: HLIN 

20.22 AT 18: HLIN 23,24 AT 2 
1: PLOT 18,13 

7045 COLOR» 2 

7050 FOR I » 23 TO 29: HLIN 29,3 
3 AT I : NEXT I 
7055 COLOR» 0 
7060 PLOT 29,30 
7100 GOTO 6070 
7110 REM 

FUOCO A DESTRA 


7118 I = INT < RND (1) *3): IF 
1 < >0 THEN 7130 

7120 COLOR» 12: HLIN 5,7 AT 15: HLIN 


5,7 AT 16i COLOR- 0: HLIN 6, 

7 AT 13: HLIN 6,7 AT 14 

7130 COLOR» 15: FOR I » 1 TO 99: 

NEXT I 

7140 ULIN 14,15 AT 16: ULIN 13,1 

6 AT 15: ULIN 12,13 AT 14: ULJN 
16,17 AT 14 

7150 COLOR- 0: ULIN 16,17 AT 21 

7160 FOR I - 1 TO 50:J - PEEK ( 

Q + 48) - PEEK (Q ♦ 48) ♦ PEEK 
<Q ♦ 48): NEXT I 

7170 GOTO 7195 

7180 COLOR- Oi VLIN 12,17 AT 14: 

ULIN 13,16 AT 15; UL1N 14,1 
5 AT 16: RETURN 

7195 HCOL - 16;U - 14:HPSN - - 2 

:UPSN - 0 

7200 HCOL = HCOL + HPSN:U - U + U 
PSN; IF U > 37 THEN 7219 

7205 IF SCRN< HCOL ♦ HPSN / 2,U 
+ UPSN / 2) = 0 THEN 7215 

7206 IF UPSN = 0 THEN GOSUB 718 
0 

7207 HPSN = HPSN « - 1:UPSN = 2 

7208 POKE 0, INT < RND <1) * 99) 

♦ 5 

7209 POKE 1,4 

7210 CALL MU 

7215 COLOR» 15: PLOT HCOL ♦ HPSN 
♦ UPSN: COLOR» 0: PLOT HC 
OL.U: GOTO 7200 

7219 COLOR» 1: HLIN 5,7 AT 15: HLIN 
5,7 AT 16: PLOT 7,17; COLOR» 

12: HLIN 5,7 AT 13: HLIN 5,7 

AT 14 

7220 GOSUB 5160: COLOR» 0: PLOT 
HCOL.U: RETURN 

32000 FOR I = 770 TO 789: READ J 
: POKE I,J: NEXT : DATA 96,1 
73,48,192,136,208,4,198,1,24 
0,8,202,208,246,166,0,76,3,3 
,96 

32763 Q = - 16384:MU = 771; RETURN 
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Anatomia umana 



TI-99/4A 


L'Anatomia e una scienza apprezzata cd evi¬ 
tata insieme; se da un loto è grazie al suo stu¬ 
dio che è stato, ed è possibile salvore tante vi¬ 
te umane, da un altro lato è anche vero che 
a volte può essere impressionante e addirittu¬ 
ra ripugnante osservare come siamo fatti den¬ 
tro. 

Dopo questa introduzione che può aver fatto 
pensare male qualcuno di voi, una premessa: 
con questo listato in Basic nessuno diverrà un 


novello Frankenstein (o Frankenstiin, secondo 
la pronuncia), e neppure un chirurgo provet¬ 
to; tuttalpiù potrete morire (in senso metafori¬ 
co) dal ridere, vedendo i vostri amici scambia¬ 
re un osso del naso per uno dell'orecchio, o 
cose simili. 

Forse sarà un gioco un po' macabro; è però 
indubbiamente divertente! 

Un consiglio: allontanate il vostro cane dal vi¬ 
deo; con tutte quelle ossa in giro non si sa mai! 


100 rem ****************** 
110 REM * ANATOMIA * 


120 REM * UMANA * 

130 REM ****************** 
140 REM 

150 REM TI-99 BASIC 

160 GOTO 2430 
170 FOR 1=1 TO N 
180 READ C,C$ 

190 CALL CHAR(C,C$) 

200 NEXT I 


210 CALL CLEAR 
220 RETURN 

230 DATA 80,82,69,77,73,32,60 

,78,84,69,82,62,32 

240 RESTORE 230 

250 FOR Y=19 TO 32 

260 READ G 

2 70 CALL HCHAR(24,Y,G) 

280 NEXT Y 

290 CALL KEY(0,K,S) 

300 IF KOI 3 THEN 290 

310 CALL HCHAR(24,1 9,32, 1 3) 

320 RETURN 

330 FOR 1=1 TO N 

340 READ X,Y,G,R 

350 CALL HCHAR(X,Y,G,R) 

360 NEXT I 

370 RETURN 

380 FOR 1=1 TO R 

390 READ BONE?(1) ,B (I) 

400 NEXT I 
410 RANDOMIZE 
420 FOR 1=1 TO R 
430 RR=INT(RND*R+1) 


69 


440 1F BONE?(RR)="" THEN 430 
450 B$(RR)=BONE$(RR) 

460 BB(RR)=B(RR) 

470 ANS(RR)=I 

480 CALL HCHAR(15+1,2,48+1) 

490 FOR J=1 TO LEN(B$(RR)) 

500 CALL HCHAR(15+1,J+3,ASC(SEGS 
(B?(RR),J,1))) 

510 NEXT J 

520 BONE$(RR)="" 

530 NEXT I 

540 DATA 65,78,65,84,79,77,73,65 

,32,85,77,65,78,65,32 

550 RESTORE 540 

560 FOR Y=9 TO 23 

570 READ G 

580 CALL HCHAR(1,Y,G) 

590 NEXT Y 

600 FOR 1=1 TO R 

61 0 RR=INT(RND* R+l) 

620 IF B$(RR)="" THEN 610 
630 CALL HCHAR(14,2,63,3) 

640 CALL KEY(0,K,S) 

650 CALL COLOR(BB(RR),16,1) 

6uO CALL COLOR(BB(RR) ,7,1) 

670 IF S<1 THEN 640 

680 IF K-48=ANS(RR)THEN 710 

690 CALL SOUND(500,-5,1 ) 

700 GOTO 640 

710 CALL HCHAR(14,2,32,3) 

720 CALL SOUND(150,262,1) 

730 CALL SOUND(150,330,1) 

740 CALL SOUND(150,392,1) 

750 CALL SOUND (150 , 330 , 1 ) 

760 CALL SOUND(200,262,1) 

770 CALL COLOR(BB(RR),12,1) 
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780 B$(RR)- " " 

790 NEXT I 

800 DATA 32,32,82,73,84,69/78,84 

,73,63,32 

810 RESTORE 800 

820 FOR Y=22 TO 32 

830 READ G 

840 CALL HCHAR(23,Y,G) 

850 NEXT Y 

860 CALL HCHAR(24,26,40) 

870 CALL HCHAR(24,27,83) 

880 CALL HCHAR(24,28,47) 

890 CALL HCHAR(24,29,78) 

900 CALL HCHAR(24,30,41) 

910 CALL KEY(0,K,S) 

920 IF K=78 THEN 2480 
930 IF K<>83 THEN 910 
940 FOR Y=16 TO 24 
950 CALL HCHAR(Y,2,32,12) 

960 NEXT Y 

970 CALL HCHAR(23,22,32,10) 

980 CALL HCHAR(24,26,32,5) 

990 RETURN 

1000 RESTORE 1010 

1010 DATA 97,F0FCFFFFFFFFFFFF, 98 
,0000C0E0F8FCFEFF,99,0080C0C0E0E 
0E0E,100,E0E0F0F0F8F8FCFC 
1020 DATA 101,FCFCFEFE3F1F0F07,1 
02,FFFFFFFFFEF8F0C,103,FFFF7F1Fi 
F0F0707,109,0F7FFFFFFFFFFFFF 

1030 DATA 105,000000031F3F7FFF,1 
06,01070F0F1FiF3F7F,107,7F7F3F3F 
3F3F3F1F,108,OFOFOFOFOFOFOFOF 
1 040 DATA 1 37,0F0F0F0F030301 01 ,1 
38, FFFF7F7F3F1E0C,155,FFFEFCF,15 
3,0303030303030303,159,F0C0808 
1050 DATA 154,030303030303070F,1 
56,OO 8 OCOCOEOEOFOF 8 ,157,0F3FFFFF 
FFFFFFFE,158,00000001030FFFFF 

1060 DATA 113,7C7E7F7F3F3F1FIF,1 
14,0F0FFFFFFFFFFFFF,115,1F1F0F0F 
OFOFlFiF,116,FFFFFFFFFEEOCOC 
1070 DATA 117,00000080EOFCFFFF,1 
18,FFFFFFFFFF3F1F07,121,FF7F3F1F 
1FOFO 701 ,122,7FlF0701 
1080 DATA 123,FFFFFFFFOF,124,FEF 
CFOCO 8,12 5,CFCF87 870 30301 01 , 1 26, 
0080E0F0F0F8F8F8 

1 090 DATA 127,OOBBBBBBFFFFFFFF, 1 

45,FFFFFFFF77777777,146,FFFF7B7B 

7B7B,147,FFFFFFF 

FFFDBlBC 

1100 N = 37 

1110 GOSUB 170 

1120 PRINT " PARIETALE"::TAB(20) 

;"FRONTALE": : :"TEMPORALE" 


1130 PRINT TAB (20);" ZIGOMO" :::TA 
B(1 9); "MASCELLA": :MANDIBO 
LA":::::::: 

1140 RESTORE 1150 

1150 DATA 3,14,105,1,3,15,109,1, 

3.16.96.1.3.17.97.1.3.18.98.1.4, 

13.106.1.4.14.104.1 

1160 DATA 4,15,96,4,4,19,97,1,4, 

20.98.1.5.12.106.1.5.13.104.2.5, 

15.96.6.5.21.99.1 

1170 DATA 6,12,104,3,6,15,96,6,6 

,21 ,100,1 ,7,12,104,3,7,15,96,5,7 

,20,102,1,7,21,101,1 

1180 DATA 8,12,107,1,8,13,136,3, 

8,16,155,1,8,18,103,1,8,19,96,1, 

8.21.153.1.9.12.108.1 

1190 DATA 9,13,136,3,9,18,154,1, 

9.1 9,1 52,1 , 9,20,1 56,1 , 9,21 , 1 53,1 
,10,12,108,1,10,13,136,2 

1200 DATA 10,15,112,1,10,16,117, 

1.10.17.158.1.10.18.1 57,1,10,19, 

159.1.10.20.113.1.10.21.114.1 
1210 DATA 11,12,137,1,11,13,136, 

1.11.14.120.1.11.15.118.1.11.16, 

144.3.11.20.115.1.11.21.116.1 
1220 DATA 12,13,138,1,12,14,125, 

1 , 1 2,1 5,1 26,1 , 1 2,1 6,1 44,5,1 3,1 5, 

120.1.13.16.147.1.13.17.146.1 
1230 DATA 13,18,145,3,14,15,121, 

1.14.16.120.1.14.17.127.4.15.16, 
121,1,15,17,120,4 

1240 DATA 16,17,122,1,16,18,123, 

2.1 6,20,1 24, 1, 1 6,21 , 32,1 
1250 N=66 

1260 GOSUB 330 
1270 GOSUB 240 
1280 RESTORE 1290 

1290 DATA 4,3,32,10,6,22,32,8,9, 

3,32,9,10,22,32,10,13,21,32,8,16 

,9,32,9 

1 300 N= 6 

1310 GOSUB 330 

1320 R=6 

1330 DATA FRONTALE,9,PARIETALE,1 

0,ZIGOMO,11/MANDIBOLA,12,TEMPORA 

LE,14/MASCELLA,15 

1 340 RESTORE 1 330 

1350 GOSUB 380 

1360 GOTO 1340 

1370 RESTORE 1380 

1380 DATA 97,0001030307070707,98 
,OFOFOFOFOFOFOFOF,99,07070707030 
301,100,81C3C7EFFFFFFFFF 

1 390 DATA 1 01 ,F7F3F0F0F0F3F7FF,1 
02,FFFFFFFFF7F77E3C1,113,0000000 
000FFFFFF,121,7E7E7E7E007E7E7E 





1400 DATA 129,FEFEFEFEFEOOOOOO,1 
30,FEFEFEFEFE0000FE,131,FEFEFEOO 
OOFEFEFE,1 3 7, FFFFFFFE00 00 80C 

1410 DATA 138,FFFFFFFFFFOOOOFF,1 
39,80C0COC0800000FE,14 0,FFFFFFFF 
OOOOFFFF,141,FFFFFFOO OOFFFFFF 
1420 DATA 142,FFFFFFO00OCOEOEO,1 
43,C0CO8,145,000001070F1F7FFF,14 
6,1878F8F8F0E0C08 
1 430 DATA 64,0000001 FI 010101 ,94, 
101010101010101,95,101010101F 
1 440 N=23 
1450 GOSUB 170 

1460 PRINT TAB(21);"@FALANGE":TA 
B(12);"RADIO 

1 4 70 PRINT : : :TAB(12) ;"ULNA ~_M 
ETACARPO" 

1 480 PRINT " OMERO": :TAB(18) ;"_C 
ARPO":::::::::: 

1490 CALL VCHAR(12,20,94,2) 

1500 RESTORE 1510 

1510 DATA 8,2,97,1,9,2,98,1,10,2 
,99,1,8,3,96,8,9,3,96,8,10,3,96, 
8', 8, 1 1 ,1 00, 1 

1520 DATA 9,11,101,1,10,11,102,1 
,8,12,104,8,9,12,113,8,10,12,112 
, 8,8,20,121 , 1 , 9,20,1 21 ,1 
1530 DATA 10,20,121,1,7,21,145,1 
,8,21,129,1,9,21,130,1,10,21,131 
, 1 , 7,22,1 46,1 , 8,22,1 38,2 
1540 DATA 9,22,140,2,8,24,139,1, 
9,24,137,1,10,22,141,1,10,23,142 
, 1 , 1 0,24,1 43,1 , 1 0,29,32,1 
1 550 N=27 
1560 GOSUB 330 
1570 GOSUB 240 
1 580 N = 7 

1590 RESTORE 1600 

1600 DATA 6,23,32,10,7,14,32,6,7 
,23,32,1,11,14,32,18,12,4,32,19, 
13,20,32,1,14,20,32,7 
1610 GOSUB 330 
1 620 R= 6 

1630 DATA OMERO,9,RADIO,10,ULNA, 

1 1 ,CARPO,12,METACARPO,13,FALANGI 
,14 

1640 RESTORE 1630 
1650 GOSUB 380 
1660 GOTO 1640 
1670 RESTORE 1680 

1680 DATA 43,FFFFOOFFFFFFFFFF,33 
,FFFFFFFF1 Fi FiFOF,34,FFFFFFFFEOF 
8FCFE,35,FFFFFFFF 
1 690 DATA 36,FFFFFFFFO 71F3F7F,37 
,FFFFFFFFF8F8F8F8,97,07070707070 
70 707,1 00,EOEOEOEOEOEOEOE 


1700 DATA 98,00C0F0FCFEFFFFFF,10 
1,00030F3F7FFFFFFF,99,FFlF0701,1 
02,FFF8E08,105,3FFFFFFF1FiFFFFF 

1710 DATA 106,FFF7E7F7F7F7F7FF,1 
07,FCFFFFFFF8F8FFFF,108,070707FF 
FFFF0101,109,E0E0E0FFFFFF808 
1720 DATA 113,000000FFFFFF,114,0 
60F1F03C0C0FFFF,117,C0F0F8C00303 
FFFF,115,OOOOCOEl8FlF 
1730 DATA 116,06060CF8F8F,119,60 
60301 FiFOF, 1 21 , 0001 03070F1F3F7F, 

125,OO 8 OCOEOFOF 8 FCFE 

1740 DATA 123,7F3F1F0F070301,127 

,FEFCF8F0E0C08,133,EFF7E7E7C381, 

132,F7EFE7E7C381,145,7D413E3E1CO 
8 

1750 DATA 122,000000FFFFFFFFFF,1 
37,7C7E3F3F0F0F0701,141,3E7EFCFC 
F0F0E08,138,00010101C7FFFFFF 
1760 DATA 140,00808080E3FFFFFF,1 
39,FFFFFFF7F7E3C1,129,FFClDDF9F3 
E7CFC1,151,FFFFFFC1FDFDElFD 
1770 DATA 130,00ClElF7F7F7F7F7,1 
34,008387EFEFEFEFEF,131,EFEFEFEF 
EFEFEFEF,135,F7F7F7F7F7F7F7F7 
1 780 N=42 
1790 GOSUB 170 
1800 CALL COLOR(1,12,1) 

1810 CALL COLOR(2,12,1 ) 

1 820 PRINT TAB(6) ;"CLAVICOLA”: : : 
TAB(22);"SCAPOLA":"1 STERNO" 

I 830 PRINT ::TAB(22) ;"COSTOLE": : 

: :TAB(7) ;"VERTEBRE": : :"2 0.SACRO 

II 

1840 PRINT TAB(20);"ILEO":"3 COC 
CIGE": :TAB(18) ;"ISCHIO":: : 

1850 RESTORE 1870 

1860 CALL VCHAR(2,17,43,14) 

1870 DATA 4,11,33,1,4,12,34,1,4, 

13,35,3,4,16,36,1,4,18,34,1,4,19 

,35,3,4,22,36,1,4,23,37,1 

1880 DATA 5,11,97,1,5,12,96,1,5, 

13,98,1,5,15,114,1,5,16,105,1,5, 

17.106.1.5.18.107.1.5.19.117.1 
1890 DATA 5,21,101,1,5,22,96,1,5 
,23,100,1,6,11,97,1,6,12,96,2,6, 

14.113.2.6.16.108.1 

1900 DATA 6,17,104,1,6,18,109,1, 

6,19,113,2,6,21,96,2,6,23,100,1, 

7,12,99,1,7,13,113,9 

1910 DATA 7,17,104,1,7,22,102,1, 

8,12,113,11,8,17,104,1,9,12,113, 

4,9,16,116,1,9,18,119,1,9,19,113 

, 4 

1920 DATA 10,11,113,5,10,19,113, 
5,1.,11,113,4,11,15,116,1,11,19, 
119,1,11,20,113,4,12,10,113,5 
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1930 DATA 12,20,113,5,13,10,113, 

4.13.14.116.1.13.20.119.1.13.21, 

113.4.16.13.121.1.16.14.120.3 
1940 DATA 16,16,130,1,16,17,128, 

1.16.18.134.1.16.19.120.2.16.21, 

125.1.17.13.120.3.17.16.131.1 

1950 DATA 17,17,129,1,17,18,135, 
1 ,17,19,120,3,1 8,13,1 20,3,18,16, 

133.1.18.17.151.1.18.18.132.1 
1960 DATA 18,19,120,3,19,13,123, 
1,19,14,120,2,19,17,145,1,19,19, 

120.2.19.21.127.1.20.14.123.1 
1970 DATA 20,15,120,1,20,16,122, 

3.20.19.120.1 

1980 DATA 20,20,127,1,21,15,137, 

1,21,16,138,1,21,17,139,1,21,18, 

1 40,1 , 21 , 1 9,1 41 , 1 , 24,30,32,1 

1990 N=84 

2000 GOSUB 330 

2010 GOSUB 240 

2020 RESTORE 2030 

2030 DATA 5,1,32,1,7,3,32,9,6,24 

,32,7,10,24,32,4,14,18,32,8,18,2 

2,32,5,17,3,32,8,3,8,32,9 

2040 DATA 17,11,32,1,14,9,32,8,1 

9.11.32.1.10.28.32.3 

2050 DATA 19,3,32,8,21,20,32,7,5 
,17,104,1,17,17,128,1,18,17,128, 

1.18.17.128.1 
2060 N=18 


2070 GOSUB 330 

2080 CALL CHAR(145,"7F7F3E3E1C08 
") 

2090 DATA CLAVICOLA,1,VERTEBRE,2 
, SCAPOLA,9,STERNO,10,COSTOLE,11, 
ILEO,12,OSSO SACRO,13,COCCIGE, 1 5 
,ISCHIO, 1 4 
2100 R=9 

2110 RESTORE 2090 

2120 GOSUB 380 

2130 CALL VCHAR(16,1 3,1 21 ) 

2140 CALL VCHAR(17,13,120,2) 

2150 CALL VCHAR(19,1 3,1 23) 

21 60 GOTO 2110 
2170 RESTORE 2180 

2180 DATA 97,F0F8F8F8F0E0C08,98, 
071 F7F7F7F7F7F7F,99,3F1F0F0 70 70 3 
0301,100,FFFFFFFFFFFEFC 


2190 DATA 105,7E7F7F7F7F7F7F3E,1 
13,7FFFFFFF7F7F7F7F,114,00C0FFFF 
FFFFFFFF,115,FFFFFFFFFFFFFE8 
2200 DATA 122,FFCF8F8F0F0F0F0F,1 
21,OFOFOFOFOFOFOFOF,129,3E7FFFFF 
FFFFFF7F,137,1C3F1F0F07030F0F 
2210 DATA 138,38BEBFBF00F8FEFF 1 
39,FFFF8F0F0 70 70 7,1 4 0,FFFF01 FEFF 
01FEFF,145,FCFEFF03F8FE07E 


2220 DATA 14 6,F80EF678,147,1F0F0 
3,130,00F0FEFFFFFFFFFE 
2230 N=19 
2240 GOSUB 170 

2250 PRINT TAB(14);"FEMORE"::::: 
: :TAB(14) ;"ROTULA": ::TAB(7) ;"TIB 
IA" 

22 60 PRINT :TAB(14);"FIBULA": : : : 

:TAB(14);"TARSO": :" METATARSO 
FALANGI" 

2270 CALL VCHAR(2,14,96,9) 

2280 CALL VCHAR(2,15,96,8) 

2290 CALL VCHAR(13,14,112,7) 

2300 CALL VCHAR(14,15,121,7) 

2310 RESTORE 2320 

2320 DATA 2,13,98,1,2,16,97,1,3, 
13,99,1,10,15,100,1,11,14,100,1, 

11.15.105.1.12.14.113.1 

2330 DATA 12,15,114,1,13,15,122, 
1,20,14,115,1,12,14,129,1,21,15, 

130.1.22.14.137.1.22.15.138.1 
2340 DATA 23,15,139,1,23,16,140, 
2,23,18,145,1,24,18,146,1,24,17, 

147.1.24.30.32.1 
2350 N=20 

2360 GOSUB 330 

2370 GOSUB 240 

2380 RESTORE 2390 

2390 DATA 4,16,32,6,11,16,32,7,1 

4,9,32,5,16,16,32,6,21,16,32,6,2 

3,5,32,10,23,19,32,9 

2400 N=7 

2410 GOSUB 330 

2420 R=7 

2430 DATA FEMORE,9,ROTULA,10,TIB 

IA,11,FIBULA,!2,TARSO,13,METATAR 

SO,14,FALANGI,15 

2440 RESTORE 2430 

2450 GOSUB 380 

2460 GOTO 2440 

2470 STOP 

2480 CALL CLEAR 

2490 PRINT TAB(7);"ANATOMIA UMAN 
A" : : : : : : : : : : : : : : : : : : : : : : 

2500 A$="FFFFFFFFFFFFFFFF" 

2510 CALL CHAR(96,A$) 

2520 CALL COLOR(9,7,1) 

2530 CALL HCHAR(7,15,96,3) 

2540 CALL HCHAR(8,15,96,3) 

2550 CALL HCHAR(9,15,96,3) 

2560 CALL VCHAR(10,16,96,6) 

2570 CALL HCHAR( 1 1 , 1 3,96,7 ) 

2580 CALL VCHAR(15,15,96,6) 

2590 CALL VCHAR(15,17,96,6) 

2600 CALL COLOR(2,2,1) 

2610 IF FLAG = 2 THEN 2820 

2620 FOR 1=1 TO 7 

2630 CALL COLOR(9+1,12,1) 
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2640 CALL CHAR(96+8*I,A$) 

2650 NEXT I 
2660 FLAG=2 

2670 PRINT "ISTRUZIONI? (S/N)" 
2680 CALL KEY( 0 , K, S ) 

2690 IF K=78 THEN 2820 
2700 IF K<>83 THEN 2680 
2710 CALL CLEAR 

2720 PRINT "PUOI RIPASSARE I NOM 
I DELLE OSSA QUANTO VUOI." 

2730 PRINT : : :"QUINDI PREMI <ENT 
ER>. " 

2740 PRINT : :"LA NOMENCLATURA SP 
ARIRA' E STARA' A TE DARE IL NO 
ME" 

2750 PRINT "ESATTO AD OGNI OSSO. 

ii ... . 

• • • ■ 

2760 PRINT "SCEGLI IL NUMERO ESA 
TTO--": :"DEVI RISPONDERE ESATTAM 
ENTE PER POTER CONTINUARE."::: 
2770 GOSUB 240 
2780 FLAG=2 
2790 GOTO 2480 

2800 DATA 83,67,69/71,76,73,58,4 
9,32,67,65,80,79,32,50,32,66,82, 


65,67,45,32,32,32,32,67,73,65 

2810 DATA 51,32,84,79,82,83,79,5 

2,32,71,65,77,66,69,53,32,70,73, 

78,69,32,32,32,32 

2820 RESTORE 2800 

2830 CALL HCHAR(23,1,32,21) 

2840 FOR X=7 TO 19 STEP 2 
2 850 FOR Y= 23 TO 2 9 
2860 READ G 
2870 CALL HCHAR(X,Y,G) 

2880 NEXT Y 
2890 NEXT X 
2900 CALL KEY(0,K,S) 

2910 IF SCI THEN 2900 

2920 IF K=53 THEN 2980 

2930 IF (K>52)+(K<49)=-1 THEN 29 

00 

2940 CALL CLEAR 

2950 PRINT "UN ATTIMO, PREGO.":: 

■ 

• 

2960 CALL COLOR(9,12,1) 

2970 ON K-48 GOTO 1000,1370,1670 
,2170 

2980 CALL CLEAR 
2990 END 


Il frutteto 


TI-99/4A 


Non vi sicie mai domandati quanta fatica co 

sta raccogliere la frutta in un frutteto? Bene! 
Questa volta lo imparerete a vostre spese. Avre¬ 
te a disposizone 5 cestini per raccogliere al vo¬ 
lo i vari frutti che cadono dagli alberi, in modo 
del tutto casuale. Ad ogni frutto che si perde¬ 
rà nell'erba, verrete penalizzati di un cestino: 
dopo aver perso il quinto dovrete ricominciare 
daccapo. Una vera fatica di Sisifo! Per sposta¬ 


1 00 

REM 

* * 

************ 

1 1 0 

REM 

* 


1 20 

REM 

* 

IL FRUTTETO 

1 30 

REM 

* 


1 40 

REM 

* 

TI-99/4A 

150 

REM 

* 


1 60 

REM 

* 


1 70 

REM 

* 



re il cestino a destra e a sinistra userete i tasti 
con le corrispondenti frecce e per fermare il 
medesimo userete la barra spaziatrice. 

Solo dopo due giorni e due notti dì lavoro, vi 
verranno abbuonati gli errori commessi. 

Il programma m TI Basic è lungo e richiede mol¬ 
ta attenzione, ma la soddisfazione che ne trar¬ 
rete alla fine vi ripagherà in piano della fatica. 
Buon divertimento! 

180 REM * TI BASIC 
190 REM ****************** 

200 CALL CLEAR 
210 GOSUB 2500 

220 PRINT TAB(6);"VUOI AVERE LE 
"::TAB(3);"ISTRUZIONI ? (S/N)":: 
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230 CALL KEY(0,K,S) 

240 IF S=0 THEN 230 
250 IF K=83 THEN 270 
260 IF K = 78 THEN 280 
270 GOSUB 2690 
280 CALL CLEAR 
290 FI=0 
300 SC = 5 

310 CALL SCREEN(1) 

320 GOSUB 2050 
330 MG =130 
340 MOND=147 

350 DATA 137,130,130,130,130,137 
,130,130,130,137,152,153,154,155 
,130,137,130,130,130,130,130,130 
,137 

360 DATA 130,130,130,137,130,130 
,137,130,130 

370 DATA 130,137,130,130,130,130 
,130,137,130,130,156,157,158,159 
,129,130,137,130,137,130,130,137 
, 1 30 

380 DATA 130,130,137,130,152,153 
,154,155,137 

390 DATA 130,130,130,137,130,43, 
42,44,130,130,130,137,130,130,13 
0,1 37,1 30,1 30,43,41 ,42,44,1 30,1 3 
0,130,130,137 

400 DATA 156,157,158,159,129 
410 DATA 42,41,42,41,46,47,47,47 
,45,44,130,137,130,43,41 
420 DATA 41,42,46,47,47,47,47,45 
,42,41,42,42,44,130,130,137,130 

430 DATA 47,47,47,47,47,47,47,47 

,47,47,45,42,46,47,47,40 

440 DATA 47,47,47,47,47,47,47,47 

,4D, 47,47,47,45,41 , 41 , 42 

450 YS=16 

460 PI(1)=72 

470 PI ( 2 )=88 

480 PI(3)=80 

490 PI(4)=73 

500 CALL CLEAR 

510 CALL CHAR(37,"183C3C7E7EFF7E 
1 8”) 

520 CALL CHAR(36,"0010387C7C1") 

530 CALL CHAR(34,"0008081C08") 
540 CALL CHAR(33,"00001038") 

550 CALL CHAR(35,"000010387C1") 

560 CALL CHAR(137,"0000000008") 

570 CALL CHAR(148,"020303070F1EF 

C7" ) 

580 CALL CHAR(147,"187EFFFFFFFF7 
El 8") 


590 CALL CHAR(72,"02041E3E3C7060 
8 ") 

600 CALL CHAR(73,"08103C7A7E7E3C 
") 

610 CALL CHAR(74,"0073846414E3") 

620 CALL CHAR(75,"009925252599") 

630 CALL CHAR(76,"Q0CF28CE482F") 

640 CALL CHAR(96," 1 8244 2ABD5AB56 
3C" ) 

650 CALL CHAR(80,"78F010102844C3 

C3" ) 

660 CALL CHAR(88,"80C0E06070381E 
07") 

670 CALL CHAR(39,"0000001 054381 " 

) 

680 CALL CHAR(38,"0000008952341 8 
1") 

690 CALL CHAR(152,"000303000FlF3 

F3F" ) 

700 CALL CHAR(153,"0000F0FFFFEFF 
FFF" ) 

710 CALL CHAR(154,"000001F3FFFFF 
F3F" ) 

720 CALL CHAR (155,"OOOOEOFOFCE9E 
F£" ) 

730 CALL CHAR(156,"7F6F6F6F3F16" 

) 

740 CALL CHAR(157,"F8FFEF8FFFFF7 
B") 

750 CALL CHAR(158,"19B3FFFFFFFF5 
9") 

760 CALL CHAR(159,"FEFFEFFEFFF7C 
1 ") 

770 CALL CHAR(129,"80E0E0E0F0E0C 
") 

780 CALL CHAR(40,"FFFF7EC3C18183 

C3" ) 

790 CALL CHAR(41,"00004070FCFFFF 
FF") 

800 CALL CHAR(42,"0000000086CFFF 
FF") 

810 CALL CHAR(43,"0000000002267F 
FF") 

820 CALL CHAR(44,"00000000A0F4FE 
FF") 

830 CALL CHAR(45,"80C0E0FCFDFFFF 
FF") 

840 CALL CHAR(46,"01030F1FDFFFFF 
FF") 

850 CALL CHAR(47,"FFFFFFFFFFFFFF 
FF") 

860 CALL CHAR(130,"") 

870 REM ### STAMPA BOSCO 
880 FOR J=1 TO 5 
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890 FOR 1=1 TO 32 

900 READ ZC 

910 CALL HCHAR(J,I,ZC) 

920 NEXT I 
930 NEXT J 
940 SI=15 
950 Z=6 
960 X=1 
970 A=32 
980 A=A+1 
990 S=S1 

1000 FOR J=1 TO X 
1010 CALL HCHAR(Z,S,A) 

1020 CALL HCHAR(Z,S+2,A) 

1030 S = S + 2 
1040 NEXT J 
1050 X=X+1 
1 060 Z = Z +1 
1070 Si=S1-1 

1080 ON Z GOTO 990,990,990,990,9 

90,990,990,980,980,990,980,990,9 

80,990,990,1090 

1090 CALL HCHAR(20,1,39,160) 

1100 0=24 

1110 FOR P=74 TO 76 
! 120 CALL HCHAR(22,0,P) 

1I30 0=0+1 

11-10 NEXT P 

1150 GOTO 1300 

1160 REM MOVIMENTO ERBA 

1170 SC=SC-1 

1 ! 80 FOR ZE=38 TO 39 

1190 CALL HCHAR(Z-1,S-1,ZE,3) 

1200 FOR ZI=1 TO 50 

1210 NEXT ZI 

1220 NEXT ZE 

1230 Tl=1200 

1240 FOR TT=1 TO 2 

1250 FOR T=Tl TO 1000 STEP -30 

1260 CALL SOUND(-100,T,0) 

1270 NEXT T 
1280 Tl=1400 
1290 NEXT TT 

1 300 CALL HCHAR(19,YS,96) 

1310 RANDOMIZE 

1320 FOR J=1 TO 5 

1330 CALL HCHAR(23,5+J,39) 

1340 NEXT J 

1350 FOR J=1 TO SC 

1360 CALL HCHAR(23,5+J,96) 

1370 NEXT J 

1380 IF SC=0 THEN 2360 
1390 CALL HCHAR(2,MS,MG) 

1400 MS=MS+1 
1410 IF MS<33 THEN 1560 
1420 IF Fi=1 THEN 1480 
1430 Fi=1 


1440 REM GIORNO/NOTTE 

1450 MOND=l48 

1460 GOSUB 2050 

1470 GOTO 1560 

1 480 Fi =0 

1 490 MOND = l 47 

1500 GOSUB 2050 

1510 TZAEHL=TZAEHL+1 

1 520 IF TZAEHL< 4 THEN 1560 

1530 TZAEHL=0 

1 540 SC = 5 

1550 GOTO 1350 

1560 CALL GCHAR(2,MS,MG) 

1570 IF MG=129 THEN 1610 

1 580 IF MG<160 THEN 1 590 ELSE 16 

00 

1590 IF MG>151 THEN 1610 ELSE 16 
00 

1600 CALL HCHAR(2,MS,MOND) 

1610 PIC=PI(INT(RND*4)+1) 

1620 Z=6 
1630 S=16 

1640 REM ### INIZIO GIOCO 
1650 CALL HCHAR(6,16,PIC) 

1660 CALL HCHAR(6,16,32) 

1670 CALL SOUND(-50,-2,7) 

1 680 CALL HCHAR(Z,S,32) 

1690 Z=Z+1 

1700 IF Z<15 THEN 1750 
1710 IF Z=21 THEN 1160 
1720 CALL GCHAR(Z,S,FR) 

1730 IF FR=32 THEN 1780 
1740 IF FR=96 THEN 1960 
1750 W=INT(RND*3)-1 
1760 IF W=0 THEN 1750 
1770 S=S+W 

1780 CALL HCHAR(Z,S,PIC) 

1790 CALL KEY(0,K,ST) 

1800 IF ST=0 THEN 1870 
1810 IF K = 68 THEN 1840 
1 820 IF K = 83 THEN 1860 
1830 IF K=32 THEN 1680 
1840 R=1 
1850 GOTO 1870 
1860 R=-1 
1870 YS=YS+R 

1 880 IF YS>32 THEN 1 890 ELSE 192 
0 

1890 YS=YS-R 
1900 GOTO 1680 
1910 YS = 1 

1920 CALL HCHAR(19,YS-R,32) 

1930 IF YS<1 THEN 1910 
1940 CALL HCHAR(19,YS,96) 

1950 GOTO 1680 
1960 REM 

1970 CALL SOUND(-100,-6,0) 

1980 CALL SOUND(-100,1200,0) 
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1990 SCORE=SCORE+1 
2000 TE$=STR$(SCORE)&" " 

2010 TS=24 
2020 TZ=23 
2030 GOSUB 2250 
2040 GOTO 1380 

2050 REM #SUBROUTINE COLORI 

2060 REM #GIORNO E NOTTE 

2070 MS=1 

2080 CALL COLOR(1 ,3+F1*10,11+F1 * 
-9) 

2090 CALL COLOR(2,15+Fl*-l3,6+Fl 

*-D 

2100 IF FI=0 THEN 2130 

2110 CALL COLOR(14,16,6+Fl*-l) 

2120 GOTO 2140 

2130' CALL COLOR(1 4,6+Fl *-l ,6+Fl* 
- 1 ) 

2140 CALL COLOR(13,16+Fl*-10,6+F 
1 *-l ) 

2150 CALL COLOR(16,16+Fl*-10,6+F 
1 * - 1 ) 

2160 CALL COLOR(5,11+Fl*-9/11+Fl 
*-9) 

2170 CALL COLOR(6,7,ll+Fl*-9) 
2180 CALL COLOR(7,14 r 11+Fl*-9) 
2190 CALL COLOR(4,2+Fl*14,11+Fl* 
-9) 

2200 CALL COLOR(8,3,11+Fl*-9) 
2210 CALL COLOR(3,2+Fl*14,11+F1* 
-9) 

2220 CALL COLOR(9,2 + Fl* 14,1 1+F1 * 
-91 

2230 CALL COLOR(15,12,6+Fl*-1) 
2240 RETURN 

2250 REM ### ROUTINE STAMPA GEN 
ERALE 

2260 J = LEN(TE$) 

2270 FOR 1=0 TO 2 

2280 CALL HCHAR(TZ,TS+I,32) 

2290 NEXT I 

2300 FOR 1=0 TO J 

2310 TG=ASC(SEG$(TE$,1+1,1)) 

2320 CALL HCHAR(TZ,TS+I,TG) 

2330 IF TG = 32 THEN 2350 

2340 NEXT I 

2350 RETURN 

2360 TZ = 22 

2370 TS = 9 

2380 TE$="riprovi_s_n " 

2390 GOSUB 2250 
2400 CALL KEY(0,K,ST) 

2410 IF K=83 THEN 2460 
2420 IF K<>78 THEN 2400 
2430 CALL CLEAR 

2440 PRINT TAB(7);"-ARRIVEDERCI- 


2450 END 

2460 CALL HCHAR(22,8,39,14) 

2470 SCORE=0 
2480 SC=5 
2490 GOTO 1300 

2500 REM *** BELLA SCRITTURA 
2510 RESTORE 

2520 DATA 003F666C746466EF,007E3 
13B3633337E, 003E6341 40603F1E,007 
E321119113F7E,007F33303C3831 7F,0 
07F723239383078 

2530 DATA 003E6648504F663E,007C6 
0 3F31 32 327A03,007C38 1 81 Cl Al 83C2, 
003F13060606263F 

2540 DATA 007B72363C363673,00783 
0303072637F 

2550 DATA 007F2B2A49494963,007C7 
6323A323477,003E634559617F3E,007 
E33313F3E3078,003E634559617F3E07 

256*0 DATA 007F31 3A343231 79,003E4 
13C06634F3E 

2570 DATA 007F492A0808081C,006F2 

626666E7E37,007362223232lEOC,007 

7222241494936,007932140814264F 

2580 DATA 007341623418183C,007F4 

3260C1A3!7F 

2590 FOR J=1 TO 160 

2600 READ I 

2610 NEXT J 

2620 FOR J = 65 TO 90 

2630 READ Z$ 

2640 CALL CHAR(J,Z$) 

2650 NEXT J 

2660 GOSUB 2730 

2670 RESTORE 

2680 RETURN 

2690 FOR F=1 TO 16 

2700 CALL COLOR(F,14,14) 

2710 NEXT F 

2720 GOTO 2780 

2730 CALL SCREEN(14) 

2740 FOR J=1 TO 16 
2750 CALL COLOR(J,16,14) 

2760 NEXT J 
2770 RETURN 

2780 PRINT " IL FRUTTE 
T O" 

2790 PRINT " ... 

_ Il 

2800 PRINT : : : 

2810 PRINT " SALVE GIARDINIERE 

■ • ■ 

2820 PRINT "TENTA DI RACCOGLIERE 
NEL": : 

2830 PRINT "CESTELLO TUTTI I FRU 
TTI " : : 
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2840 

PRINT 

"CHE CADONO 

DAGLI ALB 

2950 

PRINT 

"QUASI L'AVEVO DIMENT 

ERI ! " 

• • 

• • 




ICATO 

. ii . . 

■ • • 


2850 

PRINT 

"PER QUESTO 

USA I TAS 

2960 

PRINT 

"PUOI FARE SOLO 5 ERR 

TI" : : 





ORI; " 

• • 

• • 


2860 

PRINT 

"'S' PER 

SINISTRA, 'D 

2970 

PRINT 

"DOPO DUE GIORNI E DU 

' PER 

ii . . 

• • 




E NOTTI": : 


2870 

PRINT 

"DESTRA 

E ' 

SPAZIO' P 




ER" : : 








2880 

PRINT 

"FERMARE 

IL 

TUO CESTE 

2980 

PRINT 

"DI DURO LAVORO, TI V 

LLO ! " 

• ■ 

• • 




ERRANNO ": 

• 

• 

2890 

PRINT 

"PREMI 

UN 

TASTO I" 

2990 

PRINT 

"ANNULLATI TUTTI GLI 

• • 

• • 





ERRORI": : 


2900 

GOSUB 

2730 



3000 

PRINT 

"CHE HAI FATTO.":: 

2910 

CALL 

KEY(0,K,ST) 


3010 

PRINT 

"PREMI UN TASTO 1" 

2920 

IF ST 

=0 THEN 2910 

ELSE 2930 









3020 

CALL 

KEY(0,K,ST) 

2930 

CALL 

CLEAR 



3030 

IF ST 

=0 THEN 3020 

2940 

PRINT 

TAB(10); 

"ALT !!"::::: 

3040 

CALL 

CLEAR 

é m 

• • 





3050 

RETURN 



Il vostro TI 99. con questo programmo scotto 
in TI Basic, vi ha posto al comando di un grup¬ 
po di prigionieri di guerra che vogliono dispe¬ 
ratamente fuggire da un campo di concentra¬ 
mento; ciò non è facile, ma la vostra abilità 
di organizzatore vi consentirà di far scappare 
un buon numero ai prigionieri. A questo scopo 
dovrete guidarli verso l'ìnfermena, dallo quale 
si diparte una galleria segreta che porta fuori 
le mura della prigione, e poi sui senticio nel 
bosco verso la libertà. 


Qualche prigioniero, purtroppo, perderà la vi 
ta. colpito da proiettili di mitra o a causa di 
barriere elettrificate ad intermittenza, presen¬ 
ti sia all'interno che all'esterno delle mura. At¬ 
tento anche al tempo che trascorre veloce, 
scandito dal contasecondi. 

Al termine dei 99 secondi concessi saprete 
quanti uomini avrete portato in salvo e quanti 
ne avrete persi nella fuga. 

Buona fortuna e in bocca al lupo. 


******************** 


1 1 0 

REM 

* 

* 

1 20 

REM 

‘EVASIONE 

* 

1 30 

REM 

* 

* 

140 

REM 

* TI- 99/4A 

* 

1 50 

REM 

* TI BASIC 

* 

160 

REM 

******************** 

1 70 

CALL 

CLEAR 



180 PRINT " ** EVASIONE **" 

• • • 

190 PRINT "TU SEI L'ORGANIZZATOR 
E DEL":"COMITATO DI EVASIONE DA 


UN":"CAMPO DI PRIGIONIERI DI GUE 
KRA": : 

200 PRINT "GUIDA I TUOI UOMINI U 
SANDO":"I TASTI DELLE FRECCETTE" 
• • 

210 PRINT "DIRIGILI VERSO LA POR 
TA DEL":"REPARTO INFERMERIA. QUI 
":"E' GIÀ' STATA SCAVATA UNA":"G 
ALLERIA": : 

220 PRINT "STAI ATTENTO AI MITRA 
E ALLE":"BARRIERE ELETTRIFICATE 
":"E DIRIGILI VERSO GLI ALBERI": 
"OLTRE LE MURA":: 


2 ! 
















230 PRINT "PREMI UN TASTO QUALUN 
QUE" 

240 CALE KEY( 0 , K , S ) 

250 IF S=0 THEN 240 

260 ESC = 0 

270 MO = 0 

280 ROW=18 

290 COL=24 

300 CALL CLEAR 

310 CALL SCREEN(16) 

320 CALL CHAR(103/"181818FFFF181 
81 8") 

330 CALL CHAR(104,"187C7EFFFFFE7 
C38") 

340 CALL CHAR(112,"0000081C241C1 
422") 

350 CALL CHAR(41,"0000001818") 
360 CALL CHAR(40,"FFFFFFFFFFFFFF 
FF" ) 

370 CALL CHAR(120,"FFFFFFFFFFFFF 
FFF" ) 

380 CALL COLOR(9,10,16) 

390 CALL COLOR(10,13,1) 

400 CALL COLOR(12,11 ,11) 

410 CALL COLORO 1,6,1) 

420 FOR C=1 TO 5 
430 CALL VCHAR(9,C,104,7) 

440 NEXT C 

450 CALL VCHAR(5,14/40,15) 

460 CALL VCHAR(5,28,40,1 5) 

470 CALL HCHAR(5,15,40,13) 

480 CALL HCHAR(19,15,40,13) 

490 FOR CO = 25 TO 27 

500 CALL VCHAR(14,CO,40,5) 

510 NEXT CO 
520 FOR COM=15 TO 21 
530 CALL VCHAR(13,COM,40,3) 

540 NEXT COM 
550 FOR 0=25 TO 27 
560 CALL VCHAR(6,0,40,5) 

570 NEXT O 
580 FOR OC=l5 TO 21 
590 CALL VCHAR(7,OC,40,3) 

600 NEXT OC 

610 CALL HCHAR(10,21,40) 

620 CALL HCHAR(10,19,40) 

630 FOR OP=l2 TO 15 
640 CALL VCHAR(2,OP,40,3) 

650 CALL VCHAR(20,OP,40,3) 

660 NEXT OP 
670 FOR PO=28 TO 30 
680 CALL VCHAR(2,PO,40,3) 

690 CALL VCHAR(20,PO,40,3) 

700 CALL HCHAR(8,20,103) 

710 CALL HCHAR(12,2,32,4) 

720 CALL VCHAR(14,25,32,3) 

730 NEXT PO 


740 REM IMPOST.TEMPO 
750 TIME=100 
760 R= 6 
770 C=2 

780 TIME=TIME-1 

790 IF LEN(STR$(TIME))=1 THEN 80 
0 ELSE 810 

800 CALL HCHAR(23,26,32) 

810 FOR 1=1 TO LEN(STR$(TIME)) 
820 CALL HCHAR(23,I+24,ASC(SEG$( 
S’TR$ (TIME) ,1,1))) 

830 NEXT I 

840 CALL HCHAR(5,12,120) 

850 CALL HCHAR(17,15,120) 

860 CALL HCHAR(6,24,120) 

870 CALL HCHAR(12,27,120) 

880 CALL HCHAR(4,20,40,3) 

890 CALL HCHAR(ROW,COL,112) 

900 CALL GCHAR(10,20,G) 

910 IF G=112 THEN 2020 
920 CALL GCHAR(12,2,GT) 

930 IF GT=112 THEN 2060 ELSE 940 

940 GOSUB 1240 
950 RANDOMIZE 
960 X=INT(RND*6)+1 

970 ON X GOSUB 1360,1520,1680,18 

60,1360,1360 

980 CALL KEY(0,K,S) 

990 IF K=69 THEN 1000 ELSE 1050 

1000 ROW=ROW-1 

1010 CALL GCHAR(ROW,COL,GET) 

1020 IF GET>32 THEN 1030 ELSE 12 
20 

1030 ROW=ROW+1 
1040 GOTO 1220 

1 050 IF K= 88 THEN 1 060 ELSE 1110 
1060 ROW=ROW+! 

1070 CALL GCHAR(ROW,COL,GET) 

1080 IF GET>32 THEN 1090 ELSE 12 
20 

1090 ROW=ROW-1 
1100 GOTO 1220 

1110 IF K=68 THEN 1120 ELSE 1170 
1 120 COL=COL+l 

1130 CALL GCHAR(ROW,COL,GET) 

1140 IF GET>32 THEN 1150 ELSE 12 
20 

1 150 COL=COL- 1 
1160 GOTO 1220 

1170 IF K= 83 THEN 1180 ELSE 1220 
1180 COL=COL-1 

1190 CALL GCHAR(ROW,COL,GET) 
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1 200 IF GET> 32 THEN 1210 ELSE 12 
20 

1210 COL=COL+1 

1220 CALL HCHAR(ROW/COL,32) 

1230 GOTO 890 

1240 REM CONTEGGIO TEMPO 

1250 TIME=TIME-1 

1260 IF LEN(STR$(TIME))=1 THEN 1 

270 ELSE 1280 

1270 CALL HCHAR(23,26,32) 

1280 FOR 1=1 TO LEN(STR$(TIME)) 

1290 CALL HCHAR(23,1+24,ASC(SEG$ 
(STR$(TIME),1,1))) 

1300 NEXT I 

1310 IF TIME=0 THEN 1330 
1320 RETURN 
1330 CALL CLEAR 

1340 PRINT "HAI PERSO";MO; M UOMI 
NI";" E"; ESC;"UOMINI SONO RIUSCÌ 
TI A";"FUGGIRE":::: 

1350 STOP 
1360 REM Gl 

1 370 CALL SOUND(200,-1 , 1) 

1380 CALL HCHAR(ROW,COL,112) 

1390 CALL VCHAR(6,12,41,13) 

1400 CALL GCHAR(ROW,COL,GC) 

1410 IF GC=41 THEN 1420 ELSE 149 
0 

1420 CALL HCHAR(ROW,COL,!20) 

1430 CALL SOUND(200,392,2,330,2) 

1440 CALL HCHAR(ROW,COL,32) 

1450 MO=MO+l 

1460 CALL HCHAR(ROW,COL,32) 

1470 ROW=18 
1 480 COL=24 

1490 CALL VCHAR(6,12,32,13) 

1500 CALL HCHAR(ROW,COL,32) 

1510 RETURN 
1520 REM G2 

1530 CALL SOUND(200,-2,1) 

1540 CALL HCHAR(ROW,COL,112) 

1550 CALL VCHAR(7,24,41,12) 

1560 CALL GCHAR(ROW,COL,GC) 

1570 IF GC=41 THEN 1580 ELSE 165 
0 

1580 CALL HCHAR(ROW,COL,120) 

1 590 CALL SOUND (200,392,2,330,2) 

1600 CALL HCHAR(ROW,COL,32) 

1610 MO=MO+1 

1620 CALL HCHAR(ROW,COL,32) 

1630 ROW=18 
1 640 COL= 24 

1650 CALL VCHAR(7,24,32,12) 

1660 CALL HCHAR(ROW,COL,32) 


1670 RETURN 
1680 REM G3 

1690 CALL SOUND(200,-3,1 ) 

1700 CALL HCHAR(ROW,COL,112) 

1710 FOR RR=26 TO 15 STEP -1 
1720 CALL HCHAR(12,RR,41) 

1730 CALL GCHAR(ROW,COL,GC) 

1 740 IF GC = 41 THEN 1 750 ELSE 182 

0 

1750 CALL HCHAR(ROW,COL,120) 

1760 CALL SOUND(200,392,2,330,2) 

1770 CALL HCHAR(ROW,COL,32) 

1780 MO=MO+l 

1790 CALL HCHAR(ROW,COL,32) 

1800 ROW=18 
1810 COL=24 

1820 CALL HCHAR(12,RR,32) 

1 830 NEXT RR 

1840 CALL HCHAR(ROW,COL,32) 

1850 RETURN 
1860 REM G4 

1870 CALL SOUND(200,-5,I) 

1880 CALL HCHAR(ROW,COL,112) 

1890 CALL HCHAR(17,16,41,9) 

1900 CALL GCHAR(ROW,COL,GC) 

1910 IF GC=41 THEN Ì920 ELSE 199 

0 

1920 CALL HCHAR(ROW,COL,!20) 

1930 CALL SOUND(200,392,2,330,2) 

1940 CALL HCHAR(ROW,COL,32) 

1950 MO=MO+l 

1960 CALL HCHAR(ROW,COL,32) 

1970 ROW*18 
1980 COL=24 

1990 CALL HCHAR(17,16,32,9) 

2000 CALL HCHAR(ROW,COL,32) 

2010 RETURN 

2020 CALL HCHAR(ROW,COL,32) 

2030 ROW= 8 

2040 COL=13 

2050 GOTO 940 

2060 CALL HCHAR(12,2,32) 

2070 FOR S=30 TO 0 STEP -2 
2080 CALL SOUND(100,262,S) 

2090 NEXT S 
2100 ROW=18 
2110 COL=24 
2120 ESC=ESC+1 
2130 GOTO 890 
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Air defense 


*5» T1-99/4A 


Questo è un nuovo, appassionante, giochino 
d'azione che con poche istruzioni do digitare 
vi offrirà ore di divertimento assicurate. 
Scopo del gioco è difendere da continui bom¬ 
bardamenti aerei la vostra città natale in mo¬ 
do da salvare il maggior numero possibile di 
case dalla distruzione. 


Per raggiungere questo obiettivo posizionare il 
mirino della vostra contraerea sulla bomba in 
fase discendete (utilizzando i tasti con le frec¬ 
ce) e premere la barra spaziatrice in modo da 
far esplodere a mezz'aria l'ordigno con uno dei 
vostri missili terra-aria. 

Sembra facile, ma... 


60 REM ***************** 

70 REM ** AIR DEFENSE ** 

80 REM ***************** 

90 REM TI- 99 BASIC 

100 DIM BLOCK?(2),PLACE(2),BUILD 

IN (32,2) 

110 RANDOMIZE 
120 REM 

130 CALL CHAR(129,"001CBEFFFFBE1 
C00") 

140 REM 

150 CALL CHAR(130,"181818FFFF181 
818") 

160 CALL CLEAR 
170 CALL SCREEN(1 2) 

180 FOR J=5 TO 8 
190 CALL COLOR(J,5,16) 

200 NEXT J 

210 FOR J=9 TO 12 

220 CALL COLOR(J,2,14) 

230 NEXT J 
240 T=0 
250 P=0 
260 Q=0 
270 M= 0 

280 CALL CLEAR 

290 PRINT " AIR DEFENSE" 


400 IF STATUS=0 THEN 390 
410 IF Y=ASC("N")THEN 750 
420 IF Y = ASC("S")THEN 520 
430 CALL CLEAR 
440 PRINT 

450 PRINT " non hai premuto S o 
N. " 

460 FOR 1=1 TO 13 
470 PRINT 
480 NEXT I 

490 FOR DELAY =1 TO 500 
500 NEXT DELAY 
510 GOTO 280 
520 CALL CLEAR 

530 PRINT " DEVI FERMARE LA CA 
DU" A" 

540 PRINT "DI BOMBE ESPLODENDOLE 
A MEZZ'ARIA." 

550 PRINT 
560 PRINT 

570 PRINT " -MUOVI IL MIRINO-" 
580 PRINT 

590 PRINT " sinistra: PREMI <s> 

II 

600 PRINT " destra: PREMI <d> 


300 PRINT 
310 PRINT 
320 PRINT 

330 PRINT " vuoi le istruzioni? 

H 

340 PRINT 

350 PRINT " premi S o N" 

360 FOR 1=1 TO 7 
370 PRINT 
380 NEXT I 

390 CALL KEY(3,Y,STATUS) 


II 

610 PRINT " su: PREMI <e> 

H 


620 PRINT " giu': PREMI <x> 

ii 

630 PRINT 

640 PRINT " QUANDO LA BOMBA ED 
IL" 

650 PRINT "MIRINO COMBACIANO, SP 
ARA" 

660 PRINT "PREMENDO LA BARRA." 
670 PRINT "PRIMA ESPLODERAI LA B 
OMBA," 
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600 PRINT "MAGGIOR PUNTEGGIO AVR 
AI . " 

690 PRINT 
700 PRINT 
710 PRINT 

720 PRINT " PREMI un tasto..." 

730 CALL KEY( 0 , S ,STATUS) 

740 IF STATUS-0 THEN 730 

750 CALL CLEAR 

760 CALL COLOR(8,2,1) 

770 PRINT " IN BOCCA AL LUPO! 

i " 

780 FOR 1=1 TO 10 
790 PRINT 
800 NEXT I 

810 IF R=ASC("R")THEN 840 

820 GOSUB 2090 

830 GOTO 860 

840 FOR 1=1 TO 250 

850 NEXT I 

860 CALL CLEAR 

870 GOSUB 2300 

880 IF T=20 THEN 1860 

890 T=T+1 

900 CCROSS=l6 

910 RCROSS=21 

920 RBOMB=l 

930 CALL SCREEN(6) 

940 CBOMB=INT(RND*29)+2 
950 H$=STR$(T) 

960 ROW=2 
970 COL=3 
980 GOSUB 2520 
990 SCORE=P*Q*l0 
1000 H$*STR$(SCORE) 

1010 ROW= 5 
1020 GOSUB 2520 
1030 FOR 1=1 TO 70 
1040 NEXT I 

1050 FOR 1=2 TO 5 STEP 3 
1060 CALL HCHAR(I,3,32,6) 

1070 NEXT I 
1 080 OLDRCROSS = RCROSS 
1090 OLDCCROSS=CCROSS 
1100 CALL KEY(0,A,STATUS) 

1110 IF A< >ASC("E")THEN 1130 
1120 RCROSS=RCROSS-SGN(RCROSS-1) 

1130 IF A< >ASC("X")THEN 1150 
1140 RCROSS=RCROSS+SGN(22-RCROSS 
) 

1150 IF AOASC ( "D" ) THEN 1170 
1160 CCROSS=CCROSS+SGN(31-CCROSS 
) 

1170 IF AOASC ("S") THEN 1190 
1180 CCROSS=CCROSS-SGN(CCROSS-2 ) 


1190 IF RBOMB=1 THEN 1210 
1200 CALL VCHAR(RBOMB-1,CBOMB,32 
) 

1210 IF (RCROSS=OLDRCROSS)*(CCRO 
SS=OLDCCROSS)THEN 1230 
1220 CALL VCHAR(OLDRCROSS,OLDCCR 
OSS,32) 

1230 CALL VCHAR(RCROSS,CCROSS,!3 

0 ) 

1240 CALL VCHAR(RBOMB,CBOMB,129) 

1250 RBOMB=RBOMB+1 

1 260 IF RBOMB= 23 THEN 1540 

1270 IF (RCROSS=RBOMB-l)*(CCROSS 

=CBOMB)THEN 1290 

1280 GOTO 1080 

1290 CALL KEY(0,B,STATUS) 

1300 IF B=32 THEN 1330 
1310 GOTO 1080 
1320 REM 

1330 RBOMB=RBOMB-1 
1340 CALL SCREEN(10) 

1350 CALL VCHAR(RBOMB,CBOMB,32) 

1360 CNT=0 
1370 C1=92 
1380 C2=47 

1390 FOR I=-l TO 1 STEP 2 

1400 CALL VCHAR(RBOMB+I,CBOMB+I, 

Cl) 

1410 CALL VCHAR(RBOMB+I,CBOMB-I, 
C2) 

1420 NEXT I 
1430 Cl=32 
1440 C2=32 

1450 IF CNT=1 THEN 1510 
1460 CNT=1 

1470 FOR VOL=l0 TO 30 STEP 5 
1480 CALL SOUND(100,-6,VOL) 

1490 NEXT VOL 
1500 GOTO 1390 
1510 P = P+1 
1 520 Q=Q+(2 3-RBOMB) 

1530 GOTO 880 
1540 REM 

1550 CALL VCHAR(22,CBOMB,32) 

1560 CALL SCREEN(9) 

1 570 CALL COLOR(12,11 ,1 ) 

1 580 CALL VCHAR(23,CBOMB-1 , 1 22) 

1590 CALL VCHAR(23,CBOMB,32) 

1 600 CALL VCHAR(23,CBOMB+l , 1 23) 

1610 CALL VCHAR(24,CBOMB-1 ,1 24) 

1620 CALL VCHAR(24,CBOMB,125) 

1 630 CALL VCHAR(24,CBOMB+1 ,126) 
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1640 FOR 1=1 TO 20 
1650 NEXT I 

1 660 CALL COLORO 2,7,1 ) 

1670 CALL SCREEN(12) 

1680 FOR 1=1 TO 20 

1690 NEXT I 

1700 CALL SCREEN(7) 

1710 FOR VOL=24 TO 1 STEP -4 
1720 CALL SOUND(200,-7, VOL) 

1730 NEXT VOL 

1740 FOR DVOL=l TO 24 STEP 4 
1750 CALL SOUND(200,-7,DVOL) 

1760 NEXT DVOL 
1770 FOR J=23 TO 24 
1780 FOR I=CBOMB-1 TO CBOMB+1 
1790 CALL VCHAR(J,I,32) 

1800 NEXT I 
1810 NEXT J 

1820 CALL VCHAR(RCROSS/CCROSS,32 

) 

1 830 CALL COLOR(12,2,14) 

1840 M=M+1 
1850 GOTO 880 
1860 CALL CLEAR 
1 870 CALL SCREEN(4) 

1880 CALL COLOR(8,5,16) 

1890 PRINT " GAME OVER" 

1900 FOR 1=1 TO 4 
1910 PRINT 
1920 NEXT I 

1930 PRINT " DISTRUTTO ";P 

1940 PRINT 

1950 PRINT " MANCATO ";M 

1960 PRINT 

1970 PRINT " PUNTI TOTALI";P*Q 
*10 

1980 FOR 1=1 TO 4 
1990 PRINT 
2000 NEXT I 

2010 PRINT " PREMI r PER RIGIO 
CARE" 

2020 PRINT 
2030 PRINT 

2040 CALL KEY(0,R,STATUS) 

2050 IF STATiJS = 0 THEN 2040 
2060 IF R=ASC("R")THEN 160 
2070 END 

2080 REM 

2090 FOR ROW= 2 TO 1 STEP -1 

2100 FOR COL=1 TO 32 

2110 READ BUILDING(COL,ROW) 

2120 NEXT COL 
2130 NEXT ROW 
2140 REM 

2150 CALL CHAR(136,"FFABFFABFFAB 
FFFF") 


2160 CALL CHAR(128,"00 3C7EFFFFFF 
7E42") 

2170 CALL CHAR(131,"42665A664242 
7E6 6 " ) 

2180 CALL CHAR(132,"606060606060 
6060") 

2190 CALL CHAR(133,"607858F8D8F8 
D8F8") 

2200 CALL CHAR(1 34 , "F8A8F8A8F8A3 
F8F8") 

2210 CALL CHAR(135,"C3C3FFABFFAB 
FFFF") 

2220 CALL COLORO 4,7,12) 

£230 CALL CHAR(122,"8040201 00804 
0201 ") 

2240 CALL CHAR(123,"010204081020 
4080") 

2250 CALL CHAR(124,"80E0F8FEFFFF 
FFFF") 

2260 CALL CHAR(125,"814224180081 
C3E7") 

2270 CALL CHAR(126,"01071F7FFFFF 
FFFF") 

2280 RETURN 
2290 REM 

2300 FOR ROW=2 TO 1 STEP -1 
2310 FOR COL=1 TO 32 


2320 BLOCK?(ROW)=BLOCK?(ROW)&CHR 
$(BUILDING(COL,ROW)) 

2330 NEXT COL 
2340 NEXT ROW 

2350 FOR ROW= 2 TO 1 STEP -1 
2360 FOR COL=1 TO 32 


2370 PLACE(ROW)=ASC(SEG?(BLOCK?( 
ROW),COL,1 )) 

2380 CALL HCHAR(ROW+22,COL,PLACE 
(ROW) ) 

2390 NEXT COL 

2400 NEXT ROW 
2410 RETURN 
2420 REM 

2430 DATA 136,134,131,135,133,13 
6,136,133 

2440 DATA 135,136,136,136,133,13 

6.136.135 

2450 DATA 135,136,136,134,133,13 

6.136.136 

2460 DATA 135,132,136,32,131,135 
,132,135 

2470 DATA 134,133,128,32,132,32, 

135.32 

2480 DATA 32,32,134,132,132,32,1 

33.32 
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2490 DATA 32,32,128,32,132,32,13 
3,135 

2500 DATA 32,132,132,32,128,32,1 

32,32 

2510 REM 

2520 FOR 1=1 TO LEN(H$) 

2530 DIGIT=ASC(S£G$(H$,I,1)) 

2540 CALL HCHAR(ROW,COL+I,DIGIT) 

2550 NEXT I 
2560 RETURN 



Guerre stellari 


MSX 


Siete, a Dardo deila vostra astronave in una mis¬ 
sione esplorativa in una regione sconosciuta del¬ 
lo spazio, quando, all'improvviso, venite attac¬ 
cati da una flotta di un esercito sconosciuto. 
Tentate di usare le vostre mani, ma i comandi 
non rispondono alle sollecitazioni, a causa delle 
fortissime radiazioni presenti nella zona! L'u- 
nica soluzione è cercare di urtare e distrugge¬ 
re le navicelle nemiche più piccole evitando di 
essere colpiti dalle astronavi più grandi. 
Attenzione: se una piccola navicella sfugge al 


i REM GUERRE ilELLHkl 

4 bUÌUtoV-'OLlU 

5 SCREEN1,2 KEYQFF COLO* 15,1,1 PRINT" 

ÙUtkkE STEILhRI" 

15 FGkI=lTù32 KEhI'Ù m i • h * f CH R * Ctì ) : NE XT . S 
PRITEfv» ;=h* «* = " " 

2u FÙRI-1TÙ32 . READtì m«-m**CHR* vÙ>:NEXT S 
PkITE«v'ly=n> M*"" 

25 F OR I * 1Tù a REhDQ h*■**'CHR*<G>'NéXT SP 
R1TE*(2)=h* 

jtf DEFuSk c otJWòO ! DEFUSRl'óàlltl! P0KES999 
o ! , iù 


vostro intercettamento avrete perduto il com¬ 
battimento. ma consolatevi, potrete sempre 
chiedere la rivincita! I tasti cursore servono per 
muovere la vostra astronave a destra e a 
sinistra. 

Le linee 800-830 controllano la spettacolare 
esplosione dopo una collisione. La linea 200 e 
la linea 215 possono essere facilmente modi fi 
cate per alterare rispettivamente la distanza 
verticale e quella orizzontale delle astronavi ne¬ 
miche. 


35 F0Rl*lTÙ5 • VPOKEo9104*l ,8 :NEXT 

F$=i PRINT;PRINT PRINT INPUT "Livellò 
di Difficoltà' <1-4> , ,LP* DT-2*VrtLaH >*2 
. IFDTUÙTHEH4Ù 

5ò FÙR I = 1 Tùà PRINT NEXT PRINT"PREI1I UN T 
h3T0 PER 1 N IZ1hRE“ 

55 D = ftNlHi> IFlNXEYf*““THEN55 
òò SPRITEÙN 0NàPRITE6OSUB8th3 
65 FURI 3 ! 0tì9TÙlb55 UPQkE I,«NEXT:VP0KEia 
ÓÒ. 1 

7tt CLS F0RI»lT0bb VPÙKEól44 + INT<RND(l)*7 
ùó>,136 NEXT 
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95 TIHE»0:PUTSPR1TE0,(120,100),il 
1 o 0 PÙKE59999 ! , 7 D*USR(P> 

Ilo 6ÙSUB200 
126 bilbUBjóo 
190 6ÙTÙ100 

200 IFTIME<105'25*LPTHENRETURN 
210 K e LS*1 : IFX=bTHÉNk*l 

212 If 3F*NP2''KTHENRETURNELSELS*k • T L HE'Ù • 
!FRNP<1><.6THENkl=8 K2*7EL$EK1«4 K2«0 
215 VPùkEo914X»LS, K1 - PUTSPR1 T£ LS, ( INTCR 
NP<l/*(i5ò~2o*LPX40*20*LP),0>,K2SF»(SF 
>ÙR2*'Là 
22tì RETURN 

300 PÙKE5999»!, PT P0KE59998!,2 F0RI«1T05 
: IFSFhNB 2''ÌTHENP0KE5 999? ! , 1 : P-USR1 ( P ) : I F 
VPEEK(c912-»4tl )>190 hNP(SFmNP2'' I )THENSF-S 
FhNK 255'2’'1> PUTSPR1TEI, do + 3ó«I,200) ■ I 
FVPÉtKd9l4X*l >*6THEN6E-1 0OTO900ELSEFS 
*F b ♦ 1 IhFS-oTHENFb-1 
305 HEX T 
310 RETURN 

bu0 SPRITEOFF:IFVPEEK(6914M«FS>«4THEN96 

u 

610 FUTSPRITEFS, ( 10*36lF$ , 2681 : SF*SFRNl>< 
25S'2''FS>Nb a NS + l:PLhV"154»il700i»10rt54n32 

M 

6 •£ o FS*FS*1 IFFS-6TMENFS-1 
BJo SPR1TE0N RETURN 

900 SCREEN1:PR1NT“ 6hME OVER“ 

91Ò FÙRI=1T01O PRINT NEXT PRlNf'Hstron-y 
i net. i eh* colpite “ , Nb 

9^o PRINTiPRINT: lF6E*lTMENPRlNT*nJN*4 hSIR 
ONmUE E- RIUSCII* h FUbbIRE' 1 !“ ELSEPRI 
NT-L-ASTRONAVE Ph TRASPORTO TI HH-CÙLPI 
TU! “ 


94Ó IFINKEV#» -,, THENENB£LbE940 

lóooù PhTmI.1,1,129,129,199,200.206,254, 

200.255.207.199.190.199.131.128.128.120, 
13u.138,227,115,115,127,115,255,243,227, 
99,227,194 

10Ó io 1 -hTh 50,5ó,255.255.255,127.63,03,31 
, J0. 14.0.2,1,1, 1,20,28,255,2 55,25 5,254,2 
52.252,240,120,112.9o,o4,128,l20,128 
10020 1 /hTh 12 9,195,231,255,24,3o,oo,l29 
00800 CLb REbTORE0OÒ20 

00010 FURI =oóOOU ! TO60217 ! RERPCi ■ PURE I , ó : 
NEXT KESTùRE RETURN 

00020 PhTm219,176,230,240,33.92,234,94,2 
40,8.0,0,0,0,0,0.0,0.0,0,0,211,170,219,1 
09,71.0,0.0,0.0,0.0,0 

68030 PrtÌHO,0.8,236.128.194,151,234,203. 
91,202,151.234,02,3.50 94,234.195,209,23 
4,120,230,04,194,170,234,203.83,202,170. 
234,b2,2 

oU040 PmTh56,94,234,195,209,234,120,236, 

32,194.189,234,203,67,202,189,234.02,0.5 

0,94.234 195,209,234,120,230.10,194,208, 

234,203,75,202.208.234,62,1,50,94,234,19 

5.209.234,201,02,0,56,93,234,58 

OUÓ50 I> * T m 9 3.2 34.203,39, 203,39,79,6,0,33 

.0.27,». 58,95,234,71,58,94,234,87,254,0, 

194.250.234,205,27,235,121,152,79,195,44 

,235.254 

60Oo0 I>hT Al, 194,6,235,35,205,27,235,195, 

244.234.254.2.194.20.235.205.27.235.121, 
128,79,195,44,235,35,205,27.235,195,14,2 

35,125,243,211 

Ò0O70 >ATh153.124.211,153,0,0,6,0,219,15 
2,79,183,251,201,125.243,211,153,124,246 
,04,211.153,121.211.152.251,201 


Ufo 


MSX 


Distruggete lo flotta aerospazionaìe nemico uti¬ 
lizzando le potenti armi della vostra navicella 
spazialo. Combatterete dapprima volando sullo 
sfondo della vostra città e, se riuscirete a resi¬ 
stere oltre un determinato numero di secondi, 
dovrete inseguire il nemico fino al pianeta da 
cui è arrivato. Ma attenzione, è una lotta con¬ 
tro il tempo! 

Usate i tasti cursore per muovervi in tutte le 


1 REM UFO 

10 bObUHoOOOÓ 

15 eoLùk 15,1,1 ÌCKEEH2,2 

20 Fokl=lTu32 REhI*ù m I = h* ♦ CHR * < w > NEXT S 

Ht*’" 


direzioni e la barra-spazio per sparare. Se io 
desiderate potete apporre alcune modifiche ai 
programma soprattutto nella linea 60, modifi¬ 
cando i valori delle variabili SI e S2 che rap¬ 
presentano la durata dei due scenari di com¬ 
battimento. Potreste inoltre provare voi stessi 
a creare un terzo nuovo scenario immaginan¬ 
do nuovi pianeti o pericolose meteoriti. 


25 FùRI=iT032 KEhPù h» = m» ♦CHR* », Ù > HtXT b 
PRITE*«.1 j = m* -SPRlTE*v2> = CMk*i.255>tCHR*<.2 
55> Fùkl-14432TU144o4 VP ÙkE 1 , 2 * (I N T v RN l> v 

1 '* * 8 > ) 

27 NEXT 
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38 IiRmW Buio . 30Dl34RiD4R2l.jR3b2R4blR55Ul 
R4U2k3U3ft2U4KlUl34L2ibllÓLlD4LlD3Llb2Llb 
1L25U1L1U2L1U3U.U4L1U110L20" PAINT<20,40 

/ 

35 DRhW"BH99,30B145R2uU60R30U20L30U45R55 
U^0l75" F’h I NT v. iuò , 100 i 

4o bkHW"&ni95.30R40DiR4D2R3b3R2b4RlDl2bL 
l&4L2D3L3b2L4blL40UlL4U2l3U3l2U4LlU12óRl 
U4R2U3R3U2R4U1“ 

4 5 I>RhW“BM2u», 51Rl4blR2b2ftib98LlD2L2blLl 
40iL2U2LlU9tìftiU2R2Ul" PhI NT(206,60 ) 

5 0 PUTSPRITtl,( 0,5 >,8 :BEFUSR=Ó0000! DEFU 
SRlsòÙilò ! PùkE59996:,13 P0KE59997 ! , 1 PO 
KE5999S',3 PùKE59999',l 

55 IFI N» EY» = -“ THEND c USRl«.b) : 60T055 
t-0 Sl=t0*oOs2=b0*30 T I H E c 0 

99 REM HStbNÙ SCHERMO 1 

100 CLS:CùLùK 15,1,1 DkrtW " binò , 170r 5 a 12r 2 
U3rbd4r2ul0r3d2r2d3r4u6r2dl4r2u2ur?dl5r3 
u2r2d2rlubr-4u3r7d9r2uiur5dlùr3ulr2u3r2d2 
r3u4r2u3r3dl4r2uilrbu2r2d5r2u2r2u3r3d?" 
105 RRhW" r3d5r5u8r3dlr3d2r3d6r5u9r4d8r2u 
I2ridl>»2d5r4ulr3ul9r5dl3r4d4r2u8r4d2r3d 
Ir3d5r3u7r3a2r2d5rlu8r3u9r5d3rld4r4u2r4d 
4r 3dlr2dlr3d2r2u6r3a2rld2r4d3r2u?r3“ 

ilo DRmU" dt>r5o3riu2r4ulrbdlr<:d3r4uor2d3r 
lJ!‘r'4ulórt.cl8r2d5r4u3r4u2r2d3r2d2r2uDi'4do 
*.255,192“ 

12u PUTSPRI TEI.(120,70).8 :PUTSPRITEò.(0. 
8o ) , 11 

13 0 6 T R I b ( 0 ) 0 N ÙNSTR I bbOSU£4Ù0 
140 SPKITEUH 0 N S P RITEbOSuB450 

199 REM CONTROLLO 1 

200 lFVPEEk(b912)>lY5THENP0kE5999b!,12EL 
SEPQKE59996!,13 

205 l«USRv.D> IFVPEEK(6912>>160ANDVPEEKv6 
912/<175THENHE=2.bOlOoùù 
210 POR E59998!,3 P0KE59999!.4 PÙKE5999?! 
,u b * U S R1 * D > 

22U bUSU6300 
230 lFFF=iTH£NbÙSUB35u 
24o l F T lHE >$1THEN5Ó0 
290 buT02oo 

299 REM NOVI MENTO UFO 

300 PÙKE5999?',1 P0KE59999!,7 IFFF=ùTHEN 
PUKE5999S 1 ,3 60T0310 

3u5 IF R N D v1 <.oTHENP0kE 59998 1 .3ELSEIFRND 
v i X. 52mNP0KE599*8 ‘ ,òELSEPÙKEt9998!, 2 


310 b*U$Klvb; 

320 RETURN 

34-3 RE 11 MOVIMENTO RAZZI 

350 IFVPEEMo92l)>238THENFF»0 PUTSRRITE2 
.vlul.Zoo; RETURN 

3 b u VP0KEc'921,VFEEKvo92l)*ló 
37u REIURH 

399 REM FUOCO ROZZI 

400 IFFF = 10RVPEEkU9l3)>243THENI<ETURN 
405 FF=1.PUTSPRITE2,(VPEEk(0913>+lo,VPEE 
k < o 912 ) ) 

41è RETURN 

449 REM COLLISIONE 

4 5o bPRlTEÓFF IFFF+0AHDABS<VPEEK(6913 > - V 
PtEki691 ?i > <17THENHE=1.VP0KEo914,12 FORI 
1 = 1 T u 2 0 o NEXT VPOF.E a 918,12 FGRI1=1TO606 
NEXT ÙO1O3Ó0 

4 55 IFABS<VPEEK<691b>-V/PEEE*o92ù)» <8THEN 


NU = NU♦ 1 VP0KEo9l6,12 PUTSPRI TE2 ,(101,200 
> PLhY” 14iu2000» 14r.l5"~ FORI 1 = 1 TO500 . NEXT : 
VP0KE691B,4 FF = 0 PUISPR1TE1,(0,70*1 NT(RN 
IK1»«2U>> SPRITEON RE10RN 
4 6u FF = 0 PUTSPRITE2,(101,220):SPRITEÙN R 
ETURN 

499 REM DISEGNO SCHERMO 2 

500 COLOR 15,1,1 CLS 

505 ClRCLE<.220,5>,5,l5,Ó,b, .5 

5io F 0 ft I «= 1T 0 9 ClRCLEl220,5+3*1 ;, 10 ♦ 2 * l , 1 

5,0,0.28..5 NEXT FOkl=1T09 ClRCLE(220,33 

+3*1;,28-241,15,b,ò.20,.5 NEXT 

590 FÙRI»0TÙ255STEPó FORJ=OTÙ190STEPS : I F 

RNPX X. 11 hENPSET < l , J > .15 

595 NEXT•NEXT T1ME=0 SPRITEÙN 

599 REM CONTROLLO 2 

600 I* = USR < b ) 

ó10 PÒF E5 9998 1 .3 PÙKE59999*,5 P0KE59997! 

,ó D-USK1vD< 

e20 bOSUB3U0 

o30 1FFF*1THEN8OSUB350 

o40 IFT II1E>S2THENHE«3 OOTO800 

c9ó b il T 0 6 0 u 

799 REM GAME OVER 

óóù SCREEN1 PRINT- là h M E OVER 

* PRINT PRINT 

8o5 PRINT"nitronivi nsuichi abbattute, 
NU PRINT PRINT 

810 IFHE*lTHENPRlNT a Collision* con un, • 
stronaoe" 

S2Ó IFhE=2TH£NPRlNT"3ei precipitato aulì 
a cittV ! • 

83ó IFHE-3THENPRINT-FU0RI TEMPO Lh FLÙT 
T m HEMICh”:PRINT“E^ RIENTRhTh ALLA BhSE" 
8 90 IFlNk EY**“"THLnEnDELSE890 
9999 REM D«Tm SPRITES 

ioùOO IhTmó, 0,ó,224,224,224,240,248,255, 

255,127,31.31, t2.112,0.o, 0,8, tì,0,0,0,5t,, 

254,255.252.224,128.0,0.u 

Ibulù DhTmò. 0,8,3,5,15.128,255,24o.l2?,ó 

3,7 , u , o 0,00,0,0,192,84, «.-40,10 2,255,0,2 

54.252,224 O.0,0,0 

C.OOO0 CLS ■ RESTORE&0020 

C001O FuRl^c-OOoo 1 T 0 6 0 217 ! :REAbtìPÙkEl,U 
NEXT RESTORE RETURN 

c.0020 DmTh 219.170,230,240,33,92,234,94,2 
46,3,0,0,0,ó,0,U,0,0.0,0,0,211,170,219,1 
&9,7l,0,u,8,0,0,8,0,8 

6 0030 DhTm 0,0.0,230,128.194,151,234,203, 
91,202,151,234,62,3,50,94,234,195,209,23 
4,12U.230.o4,194,170,234,203,83,202,178, 
234,62,2 

60840 PATA50,94,234.195,209,234,120,238. 
32,194,189,234,283,6?,202,189,234,62,0,5 
0.94,234,195,209,234,128,238,16,194,288, 
234.203,75,202,208,234,62,1,50,94.234,19 
5.209,234.201,62,0,50,93,234,58 
60050 DaTh93,234.20J,39,203,39,79,6,0,33 
,0.27,9,58,95,234,71.58,94,234,87,254.0, 
1*4,250,234,2Ù5,27,235,121,152,79,195,44 
,235.254 

6uóóu PhTAI.194,6,235,35.205,27,235.195, 
244,234,254,2.194.20,235,205,27.235,121. 
128 79.195,44.235,35,205,27,235,195,14,2 
35.125.243,211 

6Ó070 DATA153,124,211,153,0,8,0,0,219,15 
2,79,183,251,201,125,243,211,153,124,246 
,64,211,153,121,211,152,251,201 
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Football 


MSX 


Vi ritenete una promessa dal calcio? Si? Allora 
controlliamo la vostra abilità nel palleggio ae¬ 
reo. Dovete riuscire ad effettuare il maggior nu¬ 
mero possibile di palleggi, colpendo il pallone 
sia con la testa che con i piedi, senza far toc¬ 
care alla sfera il suolo. Se riuscite a mirare le 
fessure poste in alto otterrete dei punti extra. 

1 REM FùGTEhLL 
io OGSU EòOuOÙ 

15 SCREENi.,3 f.EYOFF COLOR 15,3,3 :PRINT" 
14FÙGT EhLL F * " 

20 POR i=iTÙ32 REhPÙ h**h# + CHR$<ù) : NEXT : S 
PRITt# *0' = h* hJ = “ “ 

25 F0R1 = 1T032 ; REhPÙ hì«m*KHR*\Ù> NEXT : S 
PRI TEI » 1> = h$ h*="“ 

30 FÙRI=1TU32'REhDCi h*=m* tCHR*<G> NEXT•$ 
PPITE*C2 >-m$■m*-““ 

35 KOkl^iTufi : REhImIi hI = h**CHRIvù) NEXT SP 
KITE*<o>=h$ 

4 0 DEFUsRst-GOùO' DEFU6Rl=6Gllà' .PGKE5999 

e,, iu 

45 FORI*1T02U RR1NT-NEXT-PRlNT a Pr*bi un 
tasto i^er iiìirur e" POhE 599 9? ! , 3 PùkE 5 99 
«!,o PURE59999! ,1 PUTSPRITEO, <120, 10 Ù > , 

1 PU1SPRITE3,»0.20> 

4? FOkI=iU«ÒTÙllù3 REhDu VPOKEI,Q HEXT 
5ò D = l)SRl«. D> : lFVPEEK<t.325>*255THENP0KES9 
9 9Ò 1 , 1ELSE 1FVPEEK <.69251 «1THEMP0KE59998 1 , 

3 

55 IFINKEV*= M "THEN50 
59 REM 1 1 SEGNO CmHPO 

cu CLS K«134 VPOKE10?2,i70 VPOKE1073.127 
VPÙKE1U74.254 VP0KE1U75,127 VPOKE1076,2 
54 VP0KE1077,127 : VPGKE1Ò7B, 254 VP0KE1Ù79 
, 85■F0RI=6144T0bi75 VPÙKE1,K HEXT VPCKE& 
147,32 VPÙKEÓ148,32 VP0KEol59,32 VPOKE61 
t>6,32 : V POR Eoi 72.32 : VPOKE ol7 3,32 
o5 FORI=6i76Tù6tìàÒSTEP32’VPOKEI,K VPùKE! 
♦31,1 HEXT F0RI=&349Tùé679-VPÙKEI ,k HEXT 
70 FURI =6893T0óm VPOKE 1,K HEXT 
75 VPÙKEbiub,195 GGSUBlóùO PUTSPRITEO,>1 

2 o,142 / :PUTSPRITE3,<11,11) 

t ; 0 1>R = 6 - 3 P = 7 : STR I G s 0 >0H Ù N o T R IGGÙSUfeòOu 

65 K *= c 617 - FOKI = lTOll VPÙKEK.Ué VPOKEK+1 

6,13o k=k-3l NEXI : FORI=o465T06494:VPÙKE1 

,137 VPOKEI-96,137 :HEXT 

95 sPRJTEOH ùHSPklTE6ù$Ub7uO 

99 REM CUNTRGLLU 

1UU P0KE59999•,ò D=USR <ly 

105 1FPEEK <59997 1 >*0THENVPÙKE6914,« 

110 DÙSUtfiUO 
12 U GGbUfcjUkJ 
190 OùTuluu 

199 RtM MOVIMENTO PmLLm 


I tasti cursore muovono il calciatore a destra 
e a sinistra e la barra-spazio serve per calcia¬ 
re. £ molto semplice modificare la velocitò del 
pallone, che è controllata dalla variabile SP nel¬ 
la linea 80. Ma sarebbe più interessante inse¬ 
rire degli ostacoli sui muri per creare, se colpi¬ 
ti, dei rimbalzi Imprevedibili al pallone. 


200 IFDR>3THENSPR1TE0FF 6ÙT021GELSEPQKE5 
9993 !,SP PuKE59997!,3 PGKE5999b!,DR:D = US 
Ri» D, : 00TO220 

210 PUKE53997!,3PÒKE59999', 6 P -1 Kl*DR-4 
K2= U-R-3>HÙl4 P0KE5 9993 1 ,Kl:bPRJTE OH D- 
USR1 < 1 ) PUKE5999Ò! . K2 B = USR1U</ 

220 X * V P E £ I «. c 9 2 5 .■ Y = V p t E K » b 9 2’4 > RETURN 
299 RE IT CONTROLLO POSIZIONE 
30U 1F V<B0RY>i921 HENHT =0 PL h Y “ 1 9.14 i«l9uu 
n 3 0 " : 0 0 T 0 4 0 0 

305 1F X<tìuRX>24ÓTHENPLrtY M 5bhi2Ù0 1 9lì28“ : òu 
T 0 4 5 V 

ilo 1FX>237THENNT = U PLHY M iH3uùÙÓ5Sl9n35" 
u 0 T u 5 U u 

315 IFY>l&0THEN9Uù 
320 RETURN 

399 REM PhLLh CONTRO IL SuFFITlù 

400 IFX>19hNDX< 3STHENHH s 1 OÙT 042ÙELSEIFX 
>115 mNI»X<131ThENHH = 2 GOTO4 20ELEE IFX>2190 
NDX<235THENHH=3 0UTÙ42O 

410 lFDR = ?THENDR = t> : K = 2ELSE I F DR = 0THENDR =>2 
K=-2ELSEIFpR = 4lHENl-Re5 : K s -2ELiERETURN 
415 VPÙKE6925,VPEEK<©9251»K RETURN 
42U PLmY'iuIòoOsÓI 4n33" F OR I -1T 01000 HEXT 

lFHH=lóRHH-3THENSC*SC+5óELSESCsSC+10Ó 

425 OuSUBlOoO PUTSPRITE3,»9,11j DR*6 RET 
URN 

449 REM PhLLH CONTRO IL MURO SINISTRO 

450 I FDR = 4THENDR*7 K=-2ELSE I FpR = lT H£UI»K = 
3 K=-2ELSEPR = c•k--2 

455 VPOKE6924,VPEEK» 69241♦K 
460 RtTURN 

493 REM PmlLm CONTRO IL MURO CESTRO 

5uu IFI-R = 7THENl-R = 4K = -2ELbEIFpR = 6TMENlR = 

5 k = 2ELSEI-R*i K a - 2 

505 VPGKÉ6924,VPEEK<6924)*K 

510 RETURN 

699 REM PhLLEGGIÙ 

700 IFHT=lTHENR£rURNELSEàPRITEOFF SC=SC+ 

1 HT s l■bOSUBlOUÙ•PX-VPEEK »o913> IFYllcGT 
HEN 7 2 0 

7 05 IFI , R = 2THENIFRND<1X.5THENDR = 4£LSEDR = 
7EL3EIFDR=6THENDk*tìELSEIFDk=5IHENDft*0ELS 
£IFD« = 1THENDR = ?ELSE1FDR=3THENI>R*4 

710 0ÙTÙ750 

72o IFVPEEk<c914>=3THEH1FX<170THENPR-4 0 
0TÙ?5ULLSEI<R = 1 0 0 T u 7 5 u 
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725 lfVPEEK«.ó91*»> B 4THtNlf«>lo2THtNPR* : 7 • b 
Oru75oEc3Et-R = 3 - 6ùTù75u 
75-0 SPRITEÙU RETURN 

tuo PX = UPEEK^e.V13) ■ IFPXM<XTHENVPÙKE6914 

, 4ELìEVP0KEd914,8 

blu KETURN 

699 REM OhHE ClUER 

9uù STRlù<ù)OFF:SPRIT£ùFF:CLSPRINT' 

G h 11E ClVER* : PR I NT PftlNT PRINT 
blu PKIMT"HhI TOThLI2-hTQ *,SC," PUNT1“ 
99o lHHKEV«O"‘THEHEMI'ELSEb90 
999 REM h66 1 ORNhHENT 0 PUHTEÙUlÙ 
1ÙÙÓ FORl = lTl)23 PKINT HEXT PklNT'PUNTI ' 

,..C.CHRlvlls, 

1010 RttUKN 

9?99 REM PmTm SPRITES 

luùuu 1 >ATh3,5.7,3,15,31,27.19.19,23,6,0. 
ó,c. 6,14.128.04.192.120,224.24tì,l7ò,144, 
144,208.192,192,192,192,192,224 
10010 J*mTh 3,2.3,1*3,7,13,9,11,11,3,1,1,1 
.1, 1.192,128,192,128,224,24 0.22«,192,224 
,224 . i4U . 152,142,4,8,128 

1 o 0 2 0 1»mTh1.ù,1.0, 7.03,3,1,1,3,7,12,56,1 
6,u.ù,224,160,224,192,240,216,2Ó4,21o,19 

2,2^4,224,224,192,64,64,192 
1 o ó j 0 1 'hTh 4B.120,120,48,8,o.Ò.Ò 
10100 1 mThì, 2.4,6,16.32,o4,128 


10102 L>hTmO . 0, 0, 0 ,0,0, 0 , 255 
60000 CL6RESTGREoU028 

60010 FOR 1 =oÒùoù 1 TÒ60217REAfctì POKEI.il: 
«EXT RETTORE RETURN 

6ÒÓ20 1*hTh 219,170,230,240,33.92.234,94,2 
46,0,0,0,0.0.0,0,0,0,0,0,0,211,170,219,1 
t. 9,71.0,0.0,0,0,0,0,0 

60030 Pk1hO,0,0.230.123,194,151,234,203. 
41,202,151.234,62,3,50,94,234,195,209,23 
4,120.2-30.64,194,170,234,203,83,202,170, 
234.o2, 2 

&ó04u 1 >hTm5ó, 94,2 34,195,209,234, 120,230, 

32.194,169,234,203,67.202,189.234,62,0,5 

0,84.234.195.209.234,120,230,16,194,208, 

234,203.75,202,206,234,62,1,50.94,234,19 

5,269,234,201.62,0,58,93,234,56 

6005o 1 >mTm93,234,203,39,203,39,79,6,0,33 

,0.27,9,58,95.234,71,58,94,234,87.254.0. 

194,250,234,205.27,235,121,152,79,195.44 

.235,254 

6U0&U L>h T Hi, 194,0,235,35,205,27,235,195, 
244,2 j4,254,2,194,20,235,20 5,27.235,121, 
128,79,195,44,235,35,205*27,235,195,14,2 
35,125.243,211 

oóoTo I'hTh 153.124,211,153,0.0,0,0,219,15 
£,79,163,251.201,125,243.211,153,124,246 
.04,211,153,121.211,152,251.201 


Per ricevere 


gli arretrati di IP^(P§ij§ si&Jfj compilare il seguente tagliando: 


t Compilare ed inviare in busta chiusa a: 

KJ.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome_ 


Cognome 
Indirizzo _ 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 




Anno 


a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato 1 2 contanti allegati 


31 

















Dalla grande 
edicola 


Jackson 

Tutto sull’hobby 
e home 


STRUMENTI MUSICALI 


Th 


COMPUTER 

In questo numero: 

MSX Basic: 2° 
untata 
e Biz per 
Spectrum 
Insegnatilo le 
frazioni al nostro 
computer 
Tutto sul 
portatile Olivetti 


In questo numero: 

Gibson Flying "V" 

Pianoforti usati 
Pickup per basso elettrico 
Programmare il DX7 con lo Spectru 
GLOSSARIO D'INFORMATICA 
MUSICALE - 5° fascicolo 


VIDEOGIOCHI In questo numero: 

Speciale due anni dopo: 
cosa ci riserva il 1985? 
Tuttolucky 

Provati in anteprima: 
Ghostbusters e The Biz 
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sono pubblicazioni firmate: 


GRUPPO 
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